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- * I T'fgMlZ ft ^:^7^ 

&£I&$t*? p— ;u 
•y h7^ hMUlZL 
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4M-yxma* 






1 A<7)R|#;!><ftA,T*^?>£ 




IWs7&4yVL 








**3rM5£'J>lrtf<fc 

-0)jggg<7)fc fe l a $ £ s -f m- 

l*££3Ct ^H^fl^lZ t, t P 

fc £ # (i £ t?teA,<n=mt^ tz it 



— C 4T-5 KlfiS L T iv < <7)jH* g- fc? 



■ MSX2-2DD 

■ t'x*RAM128K 
■>-f >RAM64K 

■ 10E20B£36 
■ffifi*S8,700R[ft3lJ] 






MSXJ& 







7VtfVH 



MUSIC FROM YSI WANDERERS FROM YS 




10£20SHfg5r£ft3MSXM^-* 
m<7>&£ii-5J:-5(:: x -f—XIW> 
h7CD3& < fc^i;«5t'75'/U3AU'— ^U 

3r26ffi<7)i£;fj<7)+t-7 > KtfJ&fcAfo 
*>?'UP-F\ 2,843R[i&SlJ] 




♦ tV *:?*-*(* 2; 



iS(7)T-r 



MUSIC FROM YSI SUPER ARRANGE VERSION 




titi \S *H^3/JiBc ^ T 7 u > v i' - iz 
SBIJL * i £' £ U i> * > j K7)^^ HI 

*>?ls-i-h\ 2 # 843RMU] 



(7)7 P -y fc-# 4 ^A-5#MxV 

x, <— ^ij7>ka-<>©y yr 



tUU7t*ii-3£ *A£tt 'J J Lfc ? 



5b1T^(z 1 1 ^ 8 S S T'tZj^^ L T 
<ff$lVp -<7^ hfcAt5:ffl! 
Tl 07-24 

ns?iK§ESSiii6-n-i 
my**- wsx?xy>mm 
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#rU ^M7^iJ°io-SC^ *X$kI j ^oWc ! 



r ±»i jtffcaiijLi/eua^fc ! a*>* ! 




&*><»£ £W-5 J: »J^ Ufrfcfe 
fc/Si:^ fgli0)£C*ftK)f=*> 
rc3*b-y h£#5£u-?> J§ 

fc r _b$j htlti- b £(F> < b I *0> 

T£\ ::c £*bO\'9— 7*'V 
7° L fc r _kjg I j <7)|g7c>££ & fr£p 

£#> < UlSSBrtT-fe, JHg£ V 7 



%rL^y T-<Mttz<£A,mM$ 

fctf>©=ry;6SS J )©>"T\ lotfh, 
*7i"(LXh£r>Xb%<m\ 



S8tO«THELPW 



^ittij-r<n§HELP«iBg r$ 

ft I3'£ 3; 9 H b -^ IC ;? L^-f u fc n 



3d£, S©1*lWfc5SXttSJS 

jwcDtpr#-r<cixn§i»©iia* 
^fc-t+^'T ^r n^ ur < ft€>o 




^SStftSs 'IS&MLT Hit. 
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• fobs fe -7&*t.%JWj."^ 




^— ;KiSofc<|5|i; £(-**< 
UlW#£3ft*JSlBifc&^ -b^ 

^ S^izWA* A 3 fr £ o 2KJ& 

r^CBl-a TLIo fcJSHrJI L fc 

£tfc;iT<ftSo -fr^^'JlL 

fcitttffs ^nfcnrHo f;it 

&%C&*A$A/Ci* *hti 

£&, zntPMtz, 
mm$*i$-otz?-i±tzu ? 

=?-?< »jt1ir>X*WfoX'\,tti%> 

tfti£s f££te*¥mXHZ%:<Tjt 
U*<7)Ao HttC«ttt»f^«rff 



%m%ifm&t%r>xwm* 

t* v L^-fbT-y *?V<££b 

/b-e7i"ft"*^i: parsers. 

t>A,teo *§#£<£ oT« v %(t>% 



ZX'inAsXfrh 



>Xl^< 



ttziX&ZOtfzfrh. %#>?)& 



F^^^^^^^^n 



3©FILE7lSsS67b x L;«)fflS 
<i:«gfl<I<b-r5A=fcL\5©-CIS? 




©1989 ACTIVISION INC. Source code for video arcade system designed by Sun Electronics under license from ACTIVISION INC. 

Personal Computer source code designed by System Soft ©1989 System Soft under licence ACTIVISION INC. Original game design by Brodie Lockard. 



^#*-y\Mt 




TIGER 



SCORPION 



fc*J htzntzw,, 

^xi^ £i£?<nmmzvAtz 



MONKEY 








SNAKE 



Ft! mizufcffia)±izmfr±ftz>fc 
ft&Wo vmuzitztiw 

'■Oo 



PANTHER 



b r ±;§j£7WUrnfcA&b"r 



DRAGON 




S-b.c^IfrbfirtMONKEY 
t\ tftt-oZ&tlttZ.tltf&HZls. 
DlC<L\©rSofc 



zn£tt&z-s.y9<Dnmt>m 

toW£Z£ft?imWXS>-ytiZtio 

-zvAjtmzmx&zis^o mint* 
6 mn&mft t r =& ^& i wz w$ 



ISnoSiUfcPANTHER^Wc 
-5-5fc - oZn ; feWc6igi^^5A^ 



33*3sBto N WDDRAGOrsK 3tt 

a znz r ±Mi (D^mmmizu-D tz 



{«j7-tiiaw 



•«t+M 



-fcETiKhUTAW)**, z<7) 

^9 — > ftf£<7) DRAGON (J x fc 

9 fcilillfefr <7V \° f — y tzt>\ Qt<n 
z £ & #i Wfr-mffr u £*«, 7° 

U -f L T ft -5 £ * fl-rnii r> tz fc 
H^$^oTU5„ titles 

■mt^ytftoirh-fs help«(- 

fcitigc: #3 c £ fe "£l\, T* t> )\y 

->£2, 3 /r7V-r -rnwrg-a* 
ft 'J (z =1 7 SrcD&iM;:: £ *<T*# 

tzWfito<7)2,fii<n&&rf^3i^-hit 
— >*rb ji$£ tizmitW&tnte 



<nwfitoi} < mm±izw%-fz> y KA, 

fc i: § caPWfa^T § T^af' 

•5<7)T'fcs£L<fri:: 

■V X-> • ^E- KT'IS, ^U7 
-1" § t *<nr> ZWi. i tz1&m 
£>ti%(ntz nm&tfrc*tiTf6 

^b, H-^jgli^im^ *<7) 




\.\>piSl>~?l"( tz* 
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7>T-tt£7ttm\ 




THEXDER THE SECOND CONTACT 







0<7)£k wti^smio ^if 

Z^HLctOo Zft£i£A,T\ Z 
(Tif— A(7)1£#H<7)«> 'J JAA,T**> 

«t— fcVfco 

oolnt •tT'C:i»7)g&BS 
fc* ^(7)«t-5^^>a<7)^ iffi^ 3 



/ ^ - v x * u —5/ -[zmmm 



if 






b L HSU I £*#o T \.^fz<nX'th § 

srt-sMcffib^bft, law 

fr%M% Baft Lfctf***; 0)7^ 
*f — C <fc 5 iJastfUtfr ? ft fc <n T* 



o mmco^miz ^tl^/:« 
Tutzwihtitzo fi\ mm 
mtmM.$tif£ftitz<DX'&% 
ftzmwiz u iffL < m%$ ntz 

mf^*Wr>Uz<r>X*&% Lrfr 



^ r> ^ 1 J^^Jr\*\#\#^#\#\r\#\#^#^#\#^^l^r*\#\#^#\#\#w\J^r\#\^^ 






££ 14X — KJb 

S*fln3$ 8G 

SBi£8g #18075+ P 



••••• 






TTi 



tn-^-rp^Tt-a 




±« 



6*-MU 
8X-Mb 

B?348*n 




iUHf^- 







HWJb 






f>— JbK 






»rOS5^SvA-, H®±C0 

?< ^Ai^gpizifiBcinr us;* 
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NEW SOFT 



STAGE1 ^-r^aOAUnSSG! 



*Wt Z T'i£tl*o XLi-otz 
r>T\.^(T)tzt>-h 



VsJ— is 1 ti, *-f -f 7A(7)t| 
^T'bF*3gB'MSA1"*Hfc*o va 

!LTf«ggp(z^Afc*! 



*bjfc-. ±M'<4Xmmtz ! dl^fct* 











-TL\ , 



t7 3"f r-^-^lJ, ? b 



Sfc* fcSgitT -5 7 T -f 7--*-^ 
v a •> a TCD'Qfth r>tz 




STAGE2 ttr~r?UiMZnm7<E\ 



Mm. ^fV7Arti:ilALf: 
yaya7^Ifcfcff)tt, «y§"brfr 
HAXfl1)Cf^<bnfc^i^<7)F*3gB 
T'fo^tzo r Z(D<$>(7)£'ZfrT\ $ 

■otfoayAtf *w % Li 

•>27ij, ^r-&A<7)=^tH^'i> 

77-f 7-7K-$a)i*JI/*-SB: !? 



CI3:*li©ft(3:Jlfr&n Kr, 

fSBt tfg-r §ft£i£ffl-r § 3 £ IZ 






^3&***\ ::^i:< ujSSfcHfcM: 
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S 1 SBHacDttH^ 

U^Sr^a^ftSr^AEniJ 
±£<7\ ?&<Sl^^c7)#)f§o _b 
^(7)^ h — U — t±fg 1 SBt fg 2 SB 








ItSI^ 7KH2I- 8931^1" 

r-(atfH-5©w^ v 



tfim>£gitt£-t-5>p'>+f£^< 
v-f(7)7'P-y h51$£ 

TWc'J 'JT> • v 






>7.P-y h(Js Stl'llCct'? 

p— • ^ A(i^©8ifi(7)— St 
WCM#ft1S:tiJ£Hlf-Tc i: c 

■i • 7°P-y h $N£ft£A&T& 

frfc, *(7>7J«A|13&tt5A > a@ 

fmanHT' u « £ v. ^ t 7 u 

«, 7J< H B B i£^T£3^fc7)7 

A(7)^#c7)gif^^a^LtHL. L 




ST%-t)HA^"c<ns •¥■©■£ 

- (7) 8 ACffl.i? tlfc 7 0<7>x 

try— Ks fi<7>fc<7)* x »b*n#>5A x 
(J, yKt-roifc - tire it 

zti^AT^Ti: cc7) 8 AT-co 
/ \°— r < — jfW> & © tzo 



■U/\— t:/uv7 h 

■MSX2 • 2DD 

■ t'-r*RAM128K 
■XVRAM64K 

■ ^ETtijSa^ 
■«t§8,800R[^SlJ] 





O AI®i±Cffi^tlfc3t 



U'J7> 







H£3i£iinrn§ a 

ttm©-)5£©3i1Sr, *« 
©■etlcjtKSSlV, 
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MSX£-g^AoT, S-at^ 
- A h T* # X „ ft fc fro 4 £fr T 

T\ A£J:oT*<7)^ifrfr'7 , a 

?*? a £ -3 fc (j ^mtz^ tz u r ?> 

frit. T-fc, ^^(J°'Jft*J]C7)9^ 
(2MSX<7)Z£(I-3UTfrfrA,fcU 
L, t'UTt y- A =flfcir & ■% 
TL*UJ&*fc£J:fa. fc Sitter 

fr&l\ /cfrb, ftlb^^*>(i 
¥A,#*HfBt&' fciftiT L J -5 
<r>h K %Wi.K U * 4%v7)fr& ? 
i: <«£*«< £&££, v7 

*<7)^fFl££frM££frs i^A 



^■v? y—Mt t c:fr < ttt^f 

K - £}*ffl L fc&Mzi v > K^ v 
9 ^ilftfc&flPl&i fc 4; «t 'J v 
£f*W£ :* fc°- K t> fr# U all- n 

Z<7)77 HJ256 K-y KX212K 
•y K7516&E— K<7)(5fr, 512 Kv 
hx212K'y h<7)16&E— K, *L 
T256 h*-y h X212 K -y h (7)256^ 
- K<7) 3 S|I(7)^- K^-y-^— h 
LTuvs zw<— ^WHH^3fc 
5-lTfcb -5 tfofrZtLh i it£\ 




%>'>Wlfebt>*iymti ( t t'fr,, 

tBlL^UTU4-L^\ ZL0V 

(z^^?txi) :tilJy'77+fO 

JU*<7)f'<T<7)*£6|<7)(ffrlI/'?? 



|£3I3!£\ GDiiU 




^ 7 J: 7 4'It^i*^ Vff>Z 
(7)7-/1^ "ttlbtCDltts CO 
(Jt'-y , y-C7)V7 h<7)^77-f 7 

^1^7-J^i^CLT^f) 

ftjfc b(D^<ntz\ £*fc U T*f£i ^ 
^fr%H.>tHU£ Lfc*, 

JU#u t' v 7 -cnMft- 7 frfr* 
■*fcfc#* /77-fy^IlOTA 
h\ ftic^b-r-r^TWtzftfr 

$>V£Lfztf ) tfXyytlz 



g^MzKhAstzT^Mtebntz 
ofc<7)T*1"o *<7)£# % r ZA/j:f£ 
l^Tt^-7 7-f 'y?7-;ufrtB 

£fcTIS^LT<ti5£l2 ! 



*1«6TflHAfcfc (*»*.* t\ fctfc-f 

a-y(svfc4ifi;*A, c , ftiwitfi^f:. 

-/ifV^ 7~^^e— K\ z 
7^'f HfV $\ iMU^- K 
fr7*7 7x?^T I ^®2^SW«C^ 
7 7i"y^7-W; fc^A,? 
-^^^"^7" t t7;U^[J16 / 800R 

*77f h(7)/\ ^ — >feg 7 >T"f^ 
'J/cL^l^-9A(i7-^7.77 7 
^7JU*£, ffl&(zj&UTS?fc 



£JiX*>frfr-&J:-5£ > ?77-f 
•y^(Jt:"-y7-(7)V7 h<7)7U<7) 

(7)7— ;UT" V + 5 fc MSXT"f f) L 




"k "k. ^ ""^i ^ 

; r/ •/ ii -v- 


|BS 


.*+M^ r j^^**jmjm^^>~^**^^i^*^m^m/i 






tUftWDif,, Ub! -<Otfc«j, 



»T~>-: 



Kn/v"5'->T-rta„ 






■ t'-yy- 

■ MSX2-2DD 

■ t'T-'*RAM128K 
■>-f >RAM64K 

■ffl^9,800R[SiSIJ] 
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I ^*5*>o-C&i ^tt*&*^-^ ! 







ffiSD£0)£E«§iBtt 

zl^ it$ tltz U «ilft> W* 7 " 

>i:Woi i ^ xmspj^y-co 

mtti^S' 7x>U— *tv* 

IP hi ft -3 Ti$g$BHE*JINI L „ 
T^zB^Z ££B8Hzy-A£ 

ffii*>iftSo sec £&£■«*■ *>ft 

ntc-^^fc ?*—*>m , 000,£U 
_bft i * t ±m&mm t\tt£hts^\ 



ztiT\.*t£\.\ ismn&miFv 

b %W izfftj: izttfT-£, t'A, 
Uiz'Mi^t z^T-bfohfrisubfe 

mmizffittz z t ifrmtZa 

ttz % n>tfj. — ^*<1 f— >C 



IMSX2-2DD 

Ifc'y^frRAMIZSK 

|>>f>RAM64K 

|flM&8,800fl 






^->&A&#!! 









0>Vfcl\ f-f77Hi«il\ 
77.9— tB&03HBS'\ FA 'J 

SCOSS<7) 5 0(75v^- U * *<ffl 

wit #«££;$£ -t*-n(fffi»*>o 




* (75 t *>?& @¥ot filMT C & * * 7* 

a 7 > * T-tijtK^ ?• s m L «fc "5 . 











A*e>, ^'i'?'i-* ; 'bcoii*A<*L«)?.c 
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TiTtiTsT 






£1\ #J#©*#1*2*©*>il 




>/\°-f/K7) r Tux^ 2j£, y— 

AT 7 — 7<7) r 77-f T 7 — *— ? X 

^¥- 2 j ft, ^(i £**> b t> n fl c 













#C#C, f—h.T-'V<r)=r7-*r—Z a 



COMPI 

itX < ti5-if ^lelti r 5 *?— # 
•y ?£}£■# !j&16X 8ti[*-fcJ]b 

ANteTl^Afc^fc,®?^ 4- 
/tC^A^Tt^ *>£#£> LTto 

















*> #s 

f ft 
•5 f 
•> fc 

I v 

r £ 

1" o 
> T 

•/ X 

I * 

A -* 





tfc 


tz -f 
h 




2*/u#tfM££-< uzm^zi^tzy^x* 


7—n—y 


#, ^ oig^-r-50/do itfiifii28ee^o -f-^iccfc-g. 


nifgfrbtfi^^^sfctoiziifg^nfc^-^v '^ib 


#s ^JiLfc }ili«r§©tt. tS5/u+5/c ! 




S1*> ¥Jf5©88Q«fc£X2i:P±l;:B< -?■©££ 




■ MSX2-2DO 

■ tx7t-RAMl28K 

■ y-f>RAM64K 

■ l0fl6Bf£5t: 
■flS«H,940H[8l»J] 
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m. 



T&n-ji/i/j-y-^yy 




100075 AOS/zl-x-T >^»ff*0»ft- 



fe#ivzi:f^-5o *-5* Wife 

v a — r -f > ?*<T— AT'£rF©& 



®¥lt£jf,T < n if— £t\ t; 
£4=*<i>5 e &*.$££ Wj:^ 



iQ 











• #*-r-v 



(jzA.fcCT-A"^ ! * s.ttz<n&1jtzwixhti&fcz> j ifr\1 



>*«&Tfc&©lS£#;i"C^5A 

T* 6 *K£iz «5c o fctt ^ 1" o i: >jft 
jjwsn— 7 -y "7T4 t a fe & 5 




x5. »A<*3BLT<*(nfc'V 



2/a— x«f># 

■ MSX2-2DD 

■ tx'5j-RAM128K 
■>-f >RAM64K 

■flfitt6,800R[«iSIJ] 



LASER 



:[ t lli:iil^l.i.J:—l.!H,:i.Ml|:il.Vl 




S<£5<!:, g$©J§ 



<*r_ 



*'j/*H*©»tfg 




'JMygiirffltU -&© 

gg£ nfric=&i*;u 
^-©/rfcSOorjfi 

W\r£. 



HOME TRUQUER 



^VJ 



MUG DESTROYER GRAB BOMBER 




©<fc5&£»z\ i* 

<©«*iBlWttrfi8 

arrs,, &mx>izt 
iz£-rt«)o 



£S<!:A;aqli;SS#35-3fcd:teo 





©fcuswr^rc 
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■^ y— = 






*<»•? tz a WzZtZZ T£*fc 



ft, ±±t«^oT^o^ «tz 




t;;»fms, 3— *ur»HF«>»t»*f 



ttCAS, JiXT.ommtfM.z.Zc 



^T3|5/-Co ^(ft^lZgbft^^ 

tz „ 

y** I — U — tt\ bh*>A.s % 

<7M±t 10 1 c7)(i+ s tz *>*%* 

E*nt, HSi'1!j±v SfeflKfitf) 
+** b 4 AilA Tv \--t- -f - &£' 







■ MSX2-2DD 

■ t'T-'*RAM128K 

■ >-r>RAM64K 




1^, "I 



k: [in^] 



-£j£o&#&#Jt^»cD*i;&n3$ , -A£*o 



•F2ar4JM£l 

£tEP L fc (if <7)'H#i N / \' K 9 -<7) 



&Z*$.tftt%<ntz* 
£&$>. 7. h-U-(i-c7)<-b 





t»ff)^Jfrfc* ! @!!5t % 



tfya7JI/v->t,ii'frd'frJh^ 



^5-5 z<7)y— A(iv-r^p + 
.mmiA^^Bl^ffz^Ubn-So y 

-A(7)«^->^^A(J S J: < ft 5 

j|T3 LMRPG^A,fc'ltft£'fes 
flWV £ - ^ £*># U Z. £f;fc o T 

i*$a,& *>**— tt*/ha*> 

Sr&oTl^bLUU A^St^k 



T*#S«fc?(z£rjTU*<7>£f C 



■v-r ?□*•*>£> 

■ MSX2-2DD 

■ tV7l-RAM128K 
■^-f>RAM64K 

■ 12E£5E 
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i* J: o T*fo fffE- a - * *<** 
*<iflg*rLT^#£Tfcio 

1 1 a, 10 g o— ? * n ifi^mz 

3Dfl|fiR(7)RPGT\ 7~y— >3> 

_hti;m£T'#S£S^£To 

*<Z)/\°n t-'-y — K5£ t> l*? ^# $* 
-Atfglfc L £ To ^(7>£ fe r &- 

A,£\ y-A^frblSTSC, £ 
Tfe^L^ftSWlT-To 

10B±S§*B!B=liSif*T||»#«fc 








ftfrb10#-J§^>fciA:&£* htf>£= 

•5 2;*a7>y— A<7)%5cA^jt$ft 

Tl^To 1*(J10J1 2508^0) 
r Misty ^jfligifiT'.ZftteFM 
TOWNS^fflllWF^n/cT p<> 
?>— <r— A„ MSXT'kjS^Sefc 
-MlftoT, SAT'l^SAfe^ 

o^(3 4^g^gtf LSTo *-f 
h;KiJ^4(7)ZL--y h 4 ZEROj 
T-fg^c B ft ^« * tzifcfctz? 1 X' 
To Tr>ir*)74 V )\>tKr>tz7' 
a>0<Os ^Att £'A,ftSSff^ 

3JW& ^by^bcofc^b-trt' 
&**U 4>LRPG-3(3!Vfc(7>Cfc 



^ £ To £M7 753 >HST*^ro 

$ n/z-> s a u--> 3 >y— a& 

<7)T\ ftHTUSAfc^lvirfcL 
T#>* i y #ff?fc*n b -tt L £ To 
x-f >^y— AOTflWBo MSX(7)T 



TSEV7 h#6 r }b— >7— 7j 

£l\5RPGtf^i§l/3:ToH^© 

RPG©d;5ic, g#r*nrii/u 
ri\<<z)ris&<, v»:t±g* 

2'^7-r 'vytf-tort+b^ 

r, A®#34&©|q|Z 5119 CAS 
£WMUtt<DKtzttftmz>. iz 
U5»D«fc5ft©o 

-^bttttAo §BSBtt££*;£r 



< ns «t -7 £*>©tc#s - £(** 

U ^oT^T<fz?l^o 
C7)~a — ^ -fAa^b r F-1 MR 

C^K^j OTHfB4v , c— 5>a>jMB 

# * Lfco ^roa^^i^^TT 
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•ff¥V^h«fB7^ya.-;i/i 



xZCDmmZQRUBlftftCD^OlTltc 




bU 


• 


20 B 


• 


25 H 


• 


±n 


• 


*>« 


• 


"**D 


• 
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1000 'yakisoba.bas 

1010 SCREEN 1:WIBTH 32:KEY OFF.-CLEAR 10000 

1020 DIM SO (19) ,NU5) ,H(15) ,DN$(15) ,HU(15) ,UL(15) ,SU(15) 

,NE(15) :YOSAN=10000 

1030 RESTORE 2150 

1040 FOR 1=0 TO 15:READ DN$ ( I ) ,HU(I ) ,UL ( I ) ,SU ( I ) ,NE ( I ) :N 

EXT I 

1050 ME=0 

1060 CLS:GOSUB 1790 

1070 CLS:GOSUB 1120 

1080 CLS:GOSUB 1610 

1090 IF YOSAN=<1000 THEN CLS:GOTO 1840 

1100 ME=ME+1:IF ME=16 THEN CLSrGOTO 1880 

1110 GOTO 1060 

1 120 ' V MaWlW 

1130 FOR 1=0 TO 15:SO(I)=0:NEXT I 

1140 LOCATE 2,0:PRINT "n» l )*9 0) £L£<" 

1150 LOCATE 2,1:PRINT "UtOV ^<10C^7. V bW 

1160 LOCATE 2,2:PRINT "Mtti JisMT ; YOSAN; " PIT* 1" 

1170 LOCATE 2, 3: PR I NT u QbW tzbti 21i" 

1180 RESTORE 1970 

1190 FOR 1=0 TO 15 

1200 READ D$,N(I) ,H(I) 

1210 LOCATE 2,4+1 :PRINT D* 

1220 LOCATE 16,4+1 :PRINT USING "###" ;N(I) 

1230 LOCATE 25,4+1 :PRINT "0" 

1240 NEXT I 

1250 LOCATE 2, 20: PR I NT ".y?m> = " 

1260 SN=0:Y=0:LOCATE 1,4:PRINT ">" 

1270 K$=INKEY$:IF K*="" THEN 1270 

1280 IF K$>=CHR$(&H30) AND K$=<CHR$ (&H39) AND SO(Y)<100 

THEN SO(Y)=SO(Y)*10+VAL(K$) :IN=l:GOTO 1360 

1290 IF K$=CHR$(8<H1E) AND YO0 THEN Y=Y-1 :IN=0 :GOTO 1360 

1300 IF K$=CHR$(8<H1F) AND Y<15 THEN Y = Y+1 : IN=0:GOTO 1360 

1310 IF K*=CHR$(&:H8) THEN SO(Y)=0:GOTO 1360 

1320 IF K*=CHR$(8<H7F) THEN SO(Y)=0:GOTO 1360 

1330 IF K$=CHR$(&HD> AND IN=0 AND SNO THEN 1420 

1340 IF K$=CHR$(8<HD) AND IN=1 THEN IN=0:GOTO 1360 

1350 GOTO 1270 

1360 LOCATE 1 , Y- (K$=CHR$ (&H1E) ) + (K$=CHR$ (&H1F) ) +4 :PRINT 
H ii 

1370 LOCATE 1,Y+4:PRINT ">" 

1380 LOCATE 23,Y+4:PRINT USING "###" ;SO(Y) :IF IN=1 THEN 
GOTO 1270 

1390 SN=0:FOR I=# TO 15:SN=SN+(S0(I)*N( I) ) :NEXT I 
1400 IF SN>YOSAN THEN BEEPrLOCATE 1,Y+4:PRINT " " :LOCATE 
10,21 :PRINT "m*-iV-":GOSUB 1960:LOCATE 10,21 :PRINT SP 
ACE$(10) :Y=Y-(K$=CHR$<&H1E)> + (K$=CHR$(8<H1F)) :SO(Y)=0:GOT 
1360 

1410 LOCATE 10,20:PRINT SPACE$(10) 
1415 LOCATE 10,20:PRINT SN:GOTO 1270 

1420 AN$="":LOCATE 2,21:INPUT "2H.V WV 1ft (Y or N) " ;AN$ 
1430 IF AN$<>"Y" AND AN*<>"y" THEN LOCATE 2,21:PRINT SPA 
CE$(25) :60T0 1270 






7H«>< t»i >(*,C*i>=? till" 250 

«?iK"v»sar i6§ 

* V -. " ") 7 8 

j. an-3i:< 300 

-i>"?S?ASinC< 220 

5"-»*i;< 400 

^-cc^i*^ age 

ySftU" SL. V - 3 10 

RJcJ,<U---«UV-3 160 

*'.>X, 120 

>«Kff>>J 150 

VMCi-aOJi" 130 



• t-A,. ^olJ'/^ft/rou.fcta* 



50J9 % 0»5y*< l/T <7£":ri>? 280 
<1 - 10 7f-)? ' 



7il >L- <«: 37c" l >fc<" < T" <r> L. <£ 3 «" 1 <l» 
65 C 5*l*U?i 
.9l*W 18200 RT'UTc 



HIT ANV KEV 



fp-jf:-! " A,t£lZ%ft.i Lfc<fc< 




waomw 



1000 
1060 
1 120 

1440 

1610 

1790 

1 840 



1050 
1110 
1430 

1600 

1780 

1830 

1870 



1880-1940 



1950 
1970- 
2140 



■1960 
-2130 
2300 



-T> 
/<— )i>— ^> 

COT— 9 



|^T?fc'!;-<wy7H?A 125 



^A(is -ZC7)±^T'(JZ(7)V- 

o tz$m*fetzitZ X i iz&m L 




1440 
1458 
XT I 
1468 
1470 
1480 
XT I 
1490 

1500 

1510 
XT I 
1520 
1530 



H=0:U=0 
FOR 1=0 

IF UO0 
H=0:U=0 
FOR 1=3 

IF UO0 
H=0:U=0 
FOR 1=7 



TO 1:NN=-1*(SO(I)<>0) :H=H+H ( I ) *NN :U=U+NN :NE 



THEN MN=H/U ELSE MN=0 



TO 6:NN=-1*(SO(I)<>0) :H=H+H ( I ) *NN:U=U+NN :NE 



THEN NI=H/U ELSE NI=0 



TO 9:NN=-1*(SO(I)<>0) :H=H+H (I ) *NN:U=U+NN :NE 



SU=H/U ELSE SU=0 

TO 12:NN=-1*(SO(I)<>0) :H=H+H (I ) *NN :NEX 



IF UO0 THEN 

H=0:FOR 1=10 
T I:YA=H 
1540 H=0:U=0 

FOR 1=14 TO 15:NN=-1*(SO(I)<>0) :H=H+H ( I ) *NN :U=U+NN : 

I 

IF UO0 THEN HA=H/U ELSE HA=0 

HU=MN+NI+SU+YA+HA 

HU=HU* ( (SO (0) +S0 ( 1 ) ) /SO ( 13) ) 

YOSAN=YOSAN-SN 

RETURN 

/ iYZ/iY"* - 



1550 
NEXT 
1560 
1570 
1580 
1590 
1600 
1610 
1620 



LOCATE 3, 5: INPUT ' 

1630 LOCATE 3,7:PRINT 

1640 LOCATE 3, 8: INPUT ' 

LOCATE 3,10:PRINT 

LOCATE 3,13:PRINT 



?M $ i:*? l J*< \A <£"&>" ;UR 

1-1 0) UK &W*<IWW 

(1-10 7f*)";US 

DN$(ME);"T"(D UflTUtt" 

UL=( (-3*(SU(ME) >US) ) + (-3*(NE(MEKUR) ) )/10 

IF UR>500 THEN UL=.5 

UL=UL(ME)-UL: 

IF HU(ME)>HU THEN UL=UL*.5 

IF S0(13)XS0(14)+S0(15)) THEN NN=SO( 14) +SO (15) ELS 
E NN=S0(13) 
1720 UN=(NN*10)*UL 

LOCATE 3,14:PRINT UN;":' W$l£ n 

LOCATE 3,15:PRINT "fc^ttt" ;UR*UN ; " PIT" It" 

YOSAN=YOSAN+(UR*UN) 

LOCATE 3,20:PRINT "HIT ANY KEY" 

K$=INKEY*:IF K$="" THEN 1770 

RETURN 

/ WZ'jT 

LOCATE 3,5:PRINT DN$(ME);"(D F <M&VV 
1805 LOCATE 5,6:PRINT "WRf $ ?oT titt+Vtlti" 
1810 LOCATE 9,20:PRINT "HIT ANY KEY" 

K*=INKEY$:IF K$="" THEN 1820 

RETURN 

1850 LOCATE 3, 5 .-PRINT " tizWV hUUlMKoVrtM" 

I860 LOCATE 3 ,7 :PRINT "t^mUi" 

1870 END 

1880 ' **-&r-iV , -2 

1890 LOCATE 3,5:PRINT "MZHlVQWrit *«M»«*'tfc" 
1900 LOCATE 3, 6: PR I NT "Z* 0$&TT It" 



1650 
1660 
1670 
1680 
1690 

1700 

1710 



1730 
1740 
1750 
1760 
1770 
1780 
1790 

1800 



1820 
1830 
1840 



126 if r>T#fc?-< A.0>V7 l-MZA, 














, 




fclWtttWM 



XX** 




^'S^C^^M'OJ 



1910 
1928 
1930 
1940 
1950 
I960 
1970 
1980 
1990 

2000 
2010 

2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 

2100 

2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 



LOCATE 3,7:PRINT "fc&fcU ^JJrtTtt" 

LOCATE 3, 8: PR I NT "r bV V " ;Y0SAN; " nj' 1" 

LOCATE 3,9:PRINT "*JzStt" ;Y0SAN- 10000 ;" PIT"-*" 

END 

* 9I ^ 

FOR WW=1 TO 800:NEXT:RETURN 

/ fVViW-9 

DATA "tlUHtKHtoWir " ,250,30 
DATA n nV*nW ",160,20 
DATA »^VJ", 70,0 
DATA ".r£D-7C<" ,300,20 
DATA l, .i»"&&*tC< ,, ,220,15 
DATA "r*?t<",400,30 
DATA "t^"l^",400,30 
DATA "l.>»l/£LV-2",200,20 
DATA "HW/*itV-7" ,100,10 
DATA "J&.RI/ H V-7" ,160,20 
DATA "»M",120,5 
DATA "MMN" ,190,9 
DATA ■V»i , >» m " f 130 f 5 
DATA "1-2", 100,0 
DATA "^noWJtrL", 50,5 
DATA "fcUWJtri", 30,0 

/ A* 9397* -9 

DATA "t)t^£"ur <",50,.9,8,300 
DATA »*£«£• I*" <",60,.6,7,500 
DATA "£UU?r l»r < " ,40 , .8 ,8 ,300 
DATA ",:<£" ?£"I.»F <",45,.9,8,200 
DATA " Co8° *>£" l»r < " , 40 , . 6 , 8 , 200 
DATA " tl/9-£" H»" < " ,45 , .8 ,8 ,300 
DATA "QMUnV UF < ",70, .7 ,7,250 
DATA " &m\V vr < " , 65 , . 9 , 7 , 1 50 
DATA "hi* hV UF < " ,30 , .8 , 10 , 150 
DATA "&T *£" l>r < " ,50 , .7 ,6 , 100 
DATA " **?££" UF < " ,75 , .6 ,5 , 1 30 
DATA »fc" ?ttU£" i»r (" ,80, .5,4,150 
DATA "ftCftt" t»r < " ,56 , .6 ,4 ,200 
DATA "tofcUfe- UF < " ,80 , .6 ,3 ,300 
DATA "*■#" r r l«r < " ,90 , . 7 ,5 , 500 
DATA "Wlft" UF < " ,85 , .7 ,7 ,300 



^UJ'J^S 



DN$ (n) 


*^£ 




H (n) 


mwm 




HU (n) 


p q pK(7)TPI 




N (n) 


^j%7)j^ti 




NE (n) 


ffi©<7)±PS 




SO (n) 


to^Mfr 




SU (n) 


v— T.ay'MM 




UL 


TttltztW^ 




UL (n) 


mnt i &m 




UN 


^nfciBS 




UR 


**;« 




US 


V — T.(7)m 




YOSAN 


3&&<7>^3I 




33* 


sn* 6* 


1* 


r v"-< A,<7)77 hM?A,j 


T'(i 


7°D?7 


A(7)7'-f y"^^ 


i«f! 


Attfcd/'f'yfcU-'bttl.^ 


:T-f 



USLfcb, ;«)3-t-*ti: 
«■ Iiii4- L x < /f ? i «tao ^A^sOrslr* 

A (7) T 7 -f t-'T 7 £ ft?? *> L T 1 1" „ 

fffflfi:(JM7j]ls^"7 TTfrji 
L_hlf£T<7)T\ fr%$A,b£L 
£UHfcL.T<fcr3l,Mfe, 

Tl 07-24 
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SHORT 



GO DOWN 

PETTAN NO GENKEISHITSURYU 

KAREINARU SWIMMER 




ISLAND 



SUPER OUTRIDE 
PUZZLE SQUARE 2 



-^* 



Efc*/u&tfttjft#f»*3iu/fc* 



GO DOWN 



MSX32Km± 

by itffl^SI 



Tfr b_b^ tx$a —jut & n 



X^X S 7P^7A1 12*^7? 



-OU££*GD2.BAS"(I LTtoo 



<r- Atiifei&<7)Ji$ji < £ X* K > 
Sfcteh Utf-AX'S-tr-Ol^fg 

iiTSJ: ?t;:frox^-s>A,r;tti:\ 




#*t— ^HlClJj'-fxAv 

££<X*#& J: ^tftoti^, * 
x— *>■ tt£tf T? 5 o ^JBMKCH 



POINT. 66 STftGE. 3 SHIP. 



V V V 



tffittA 4 -? Wei* ##£*.£ iA 



■ ■ ■ i 






MSX1BKW± 

by ^7uIE£ 

[ t (7)^ > & ?— A 3&<Z nfc' o 

tts g#tf 




^ u t-7- a 7_ 3 t%nhmi\ 

It* # CcWfe*^ l ) -htf * - £ ^ 

C7)X*&— & 

^fc*^t £\ aDBRtffc ^£ # & 
*•«■»; ict^jx-* s £*>»^x» 
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SHORT PROGRAM ISLAND 




ml 




w 



Vb%"«%V«W.Vi 



MSXlBKBLb 

by ^P^K 



mt. h <nr z < fc#3t*i0>J 1 1 $• , 

imztbfa<*nti 

«_■■■■ ■ ■ ■ ■ ■_■_■_■ 





♦*■ V ^ T1 J U - ■> > ?V— A 

4-©T&$ £, ¥^«rttrfreM*i 
T%<nwz<n?—L. ttAsC&z 

foAfctrcs*-?*? 

<3 *— v;u+— <7) 



MSXlBKJSLh 

by^H;£2 








Ji^bi?bT < 4 5|ii(7)7P -y 




»7Qv?^Jl^-&^-&T. iffcffcoTl. 



MSX2Hffl 
by *ttJA)£ 



@»n390JtfoI5]$E-r*J: "5 C# 
ofc%.4TCC"Ct»|ltt*«fe-5t=ft 

LTfelESCfr— 
*#&»*»*) il 




<^^~-^^ 



S©V*«Ud:-5(tUfcor. t 

^yv^r-ii&n-ir-Az-gw 

bUuorto 

Uo£UAo"CU3:t>7uo ^-ib 

=&£«?. sfcittc<iRo 



^3-S^P^^A^^IIIIU^ 
To gUUS/a-h^P^Atf 

x-^t-tz-^ur, 35&fc©£ 

r^P^-5A©^^7j^5g»tV& 

«tt(i:L\-3U«fclzil||g|JSrt53IO 

T107-S4 

^a-h^W^AfS 
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MSXV^lv 








HAWAII imiffca 



WGaJHI/MUII«A 



FK->! £*Slz£^T< 

ny--<7)*^ffliic7)Sffljii-t^< a, 

Iter*— ?J|Vol.2j (zAoTl^ 



h <n - aki ta m . p i ayfe^ts. v) tz c 

AKITA M.P£7W LtzZ£i}*& 
tfc7) frig £ 1 1 -5 T 7 -f rT CO zl - — 

£££, &->tMfr£titzA,i:>t> 
x\ m^xintz 

^IfV $«f»2 ZL — 

TUT, *> hCtf 
'J £ < $ A,<7)fagfcf e 

^c/^T; y-A 




»HAWAIICO?-f NHBffi. frfr^-:!— ; E ; 7;Ui 



>7Ktm^snn Hawaii©** 
=h? 5 # s € D±S*f ^ 6^i»-r 5S 

is toty-Affl/tUyt'Jx-f 

Sfc, 77zi>£n5g?,<Stf) s e)T 
§cr, U-£oO-£Z5©f1^iZttW 






DPI 


DO! 


DO I 


DQI 


... 


DO I 


DO I 


DO I 


DO I 



a#C * + 7 ^ 5- - ££ I Hi -5 <7) f; 




§#¥<. £L«) -5 HAWAII, "c7)^x* + 5c7)i:(r(t^fSi;lJ^-7TLS-5fce 



tis m#?%iAm*T'&mfrt£fr 

ntz<7)tz' 

•> a — x 1* > :WHAWAII Jo Z £ 
AtiVZLtzO-t >K-©+CItH 

©is, ^*t7tt ¥K£MT 
fc <•>*#*>****: JB-Mt^ ^e© 

zl- ^E 7 7. tt^fft I J EP^ift /-c'c 
* tz. fMv # T-Sl U -hi ftz 7 



7 7 7 2: Lfc&lM7J$:Kr-A x 
■"Ball OutjlZ-tji^t/'JflTU^ 

<7)*< r cELL3j e, z nii— ^.mm 

faiztf—ju%'RtzAtiZ> i:l^•5;fe 
— >k tt##rt» S #©,$i \ £**5 u 
\z&—iUftm L# < X, (to: 

Mfc'it dz'*^ •> p -r o x i ^ y- 

^c7)(5^!z(i, ¥ZfrX*3LtzZ 
£&%%'* £l^©a <r ICBM2 Jo £ 

^bP$ox< ss-y-<;HrHUi^ 

•St©^/^/-©^ 




rw^w^w^M^^^w^w^w^w^^^w^w^fw^r^^^^w^r^^w^w^fw^w^^rsw^^^w^^mr^j 









130 SOFTWARE CONTEST 



lO^T^A^I (g@M?i§? 



SAIKORON-X 



aiam/H#m 



)\s*mmLT&zo £?\ m^ 

lfAti3 ±£^tztZ5(D?T y 
3 PC7)5lJ(z&-*>+M p n<7)g<7)-g- 

it^5©fs$ciz^ Tunis; ^e 

^LT, -Jfc|fe7>1f-f3U$«5tf 



tizt£% ^^/•c'^s* < il^T♦l' 



<£, ?V7 



'-* 



#«L<&- 







^LT, ^:Cfc|f;bfC7P 
T 7 ftftC tb fz b y — A ^ — / s — tz o 
fcfr b s &l f Aft &*•&?££<$ 

xtS!^b^i\ ®3^oitbn 
^•t+T"7-r >&>gf t in wis g 



9fu*o tztzho'J> 

Ufct@7A,fc*lt£\ 
NEXT0)+K3a<7)@ 




<auut +-©U7/-ft>7#ii 
An5sm«S/3s©iz % ^^-r 

5£$*-AtfS9±tf&&l\o Zo 
<!:n5©B:#&DM£lz&or<5o 

■ffticiiiiiic^&nmsx^ 
t>\ z»:urS7rii:<u«o 










^^#^#\»>J^#^#>#\#*^#\#\#^X^*\#^*\r#\#\#\#\#\#^^\#\#\#^^\r*^#\»\#\*|J\^r\#^^^ 



£unS7-a*W3UU! ^^ > ^ ij 



*MSX?#$».« V7 ^7x7" • p>t^^ h 
Fn<D'£X\ ffi£& fc ©11 ( J J?7 > 7° 'J 5075R o 

zixmzfc miffiizAnuzft&iziz, 

Wet&QTSPit lOTJFW.fbftiif 

ft*'ft_hm T^:rfcc-*!HMl#« 

#, WrtgfcSJfMLSI-, fLTSC 

*«ftlt *M«(1007JR)£a2l^ «^Wc 

T1f^7^^T'to 

A©— SBli. TAKERUS/z(i^\° •>->"—/ 77 h 
fcLT!Efc$.<i*f. 

•h&wj ©y-A->^ u tmt^ 

MfcftT\ m ? * *-©^lt(z «fc l) , MSX v 



TAKERU J fctfy \°>y <r-^IJ 

5cT*#st><7){zpsu*ro 

£ tz ASfcfttftStt ($0 7 ^ + - (z ^ js L 

STo -teA<7)7°P^7A(7D^g|5^fz(i— g|5?r 

p t - Lkboyps zzmmmtm < feff^b y 

©7°P^'^A?rieiiL^^^ : V7' (7P'yt c 
(|)MSX V MSX2 S MSX2+(7)SIJ 'jZ^RAM, 




50 



75R 



a?^*. »7j 




VRAM(7)^^k. P-K7J>4, 

n J£#-§\ «^A<7)feflfr N ft^ ) ^a^ie Ltzh 
<7>(f±pjf^£(z(i'j£-f 7 "J **^-^o(tT < tz 



^ r $6 



107-24 H^fKtEmW 016-11-1 

TO7'^+- MSXv^v>fId 
7 7 h7x7 • P>7"^ hf^ 
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#>u:/£*«a««D 3i%Utt*9b r 7- mi ] 




NET WORK 






/\°V3>iii:[i3U^i! 



I mniztji&otii I 

/\'V3>jI4I£u-70>(*s TO 

H^ISrilUT, MSX£is77[Z&& 
7 y-6 — v ^ t-*— ? £ ^ * J 15 I J f 

#MSX(zS£;b-3 fc £ ,&*.(£*. ^ 
fcC%0* N MSXfc** h3>fc* 

&l\ MSXtZ r 1;Jl7r> ! jfcA^ 
5%^ 7 «y -tz - v frVBHtt&l 



195 Xfl it 



miih±<-f 



=E-* 



■glia^l 



y7fJI S 



' T y? V 3 > 



^_J7^"^^. 



Xt-?7 



■y>* 



t-TASifS 



B ASIC 



W 1 ? 



CC IT' 






t^-f-'A*— h U 7> 



&££lt*U£&b& v l\ *0>SKn 
fZ&-3(7)#*RS-232C* £ l^-5 #- 
hfc* *-ho"U^<7)tiMSX£ 

(7)RS-232Cli# < <7)zi > fc'a.— ? 

i tz, WSbBHTO -y fe-*>M* 

[UHT-fEX. b ft* ffl ■§■£ LTE# 
L & # # U b fc ^ v, *■*>£***" 

ZO^tzrxniMMtWMSXXvtV 

=i >iili$-r s t # (zij'j&^tzfc 

^A./ftt^\ ZftbSrtffcOtZ* 

tmbtz^y t LTMsxffliz *^& 

y^TObtiTi^o zn^p-y 
h c* > £ 3 l t n WM%m%&% 

$!Tftl£ +*(7)MSX(i/\ , V3> 
iifl0)i^[zS!i- L T L £ -5 fc 1 1 
fc* SbC^ftL^Zlfctz, 

«>0>*&1t7 7 ^"fcrt/t? 
fttl^T, TO£Aft-2>£ 

T'Lcto 



1 " 2 



1 — : 



111 




17-/1-7/ tWtl-5 3- 

u»#b(& r^MT'Atf- 

h 'J7yi:IIT'^ fc U 3 

a* b as, mts^iz -^ & # ^tf: 

yf**fi-^ NTT<7)^ilflFf(ZI 

*£$1#)IJ\ tya7-7t7^ 

VK% £*£>%£ fc 'tH^f ^ 7-^i 

JlISfozn^b^^^T-Lic 7 s 




t/<va >iiff(7)S*-tz -j HJ % MSX* 
-^ ^iilfT^^JttJ 1 200bps £ 

u - x^ 70u/c u ttffi^nn fe 

7 =i >fiil(z^^-r§ A(z(i*JS 



132 fc t» L ^ NETWORK 




*»<-* NETWORK 



I T.tf-K-¥>ttfig« I 
I »5?1-3&6=lb I 

^E^'AT} — h U 7'/^D7 h 

•y h"i:CiSiJ(z, fc-7t>i:^c7)^i^ 
* •y-tz-v^-^S-MSXfrb 

T(7)RS-232C(iZ*<— SB<7)MSXIZ 

MSX*ftC:RS-232C£igIxLT L 
£-5*RS-232C*— I- 'J'yv'a^ 

•5 =e y if v - - *> =g$ t't>- b fg 

M-fr I £ >< v a >iiff £ r * tz &> 
<W&MfX'£bff 
%>t>tttz :nc, 
M5XT2fc§WW"* 
7 t —$' , pjt -viz— 

is; v\°v=i>iifi 

(ft* l ) 7 I* (£ X »RS-232C^i- I- U 



* t°- K"*lbCf bft&, oj (J2400 
bpsW^E-rA^c^bl t& £'<7)X 7 
— SrlTIELT < ftVMNP^T-'A* 
£f£x. 5 i: L > "5 ,&£?«, MNP £ I * o CO 
it, TS 'J ^(7)Microcom}±7!rfI p I 

l fcim ^)ii(7) z t m&z M NP 

^xAdftJ^L/c* -y h #£• < & 
-3 T ^ & <7)T"2400bps MNP^E^-' A 

(2 t -5 a£ -3»£7-r rAA^ 



PDS(7)ii1fV7 K^fflJt^tlTLN 

ft(i\ *ft£fi&*rtr-Tfcb-)£l^ 
^¥U5o *>*>*> A,, BASICS 
MSX-C^«^>Tg^T-aflV7 h 

RS-232C^— h U 7y ^t-'A, 

ilftV? hCMSXxjs:#^-<7)M* 

-g-^-tt(7)'jZ^p n p-C\ »«T<7) 
Hl<7)«fc?i::fc5 n* Mi*>j:^ 



t' h b <7M.ft--&t>it<Di%& h s 
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1000 KEY OFF:COLOR 15,1,1 

1010 DEFINT A-Z 

1020 DIMD(4,2) :K'*(0)=" •" :K*(1)="#" 

1030 GOSUB 1350: GOTO 1770 

1040 FOR 1=0 TO 2:S*(I)="" 

1050 FOR J=0 TO 4 

1060 IF D(J,I) THEN A$="« " ELSE A*=" 

1070 S*(I)=S$(I)+A*:NEXT J, I 

1080 CLS 

1090 LOCATE 0,9,0 

1100 PRINT TAB (4) 

1110 PRINT 

1120 PRINT TABU) 

1130 PRINT 

1140 PRINT IAB<4)-r J '2:lM'7*5 ";S*(1) 

1150 PRINT 

1160 PRINT TAB (4) ;"3 zV*"J ";S*<2> 

1170 LOCATE , ,0 

1180 X=0:Y=0:S0=0 

1190 LOCATE 12+X*3,11+Y*2,1 

1200 S=STICK(0) 

1210 IF INKEY*=CHR$(13> THEN RETURN 

1220 IF STRIG(0) THEN GOSUB 1270 

1230 IF S=S0 THEN 1200 

1240 X=X+(S=7)-(S=3) :X=X+(X=5)-(X=-1) 

1250 Y=Y+(S=1)-(S=5) :Y=Y+(Y=3)-(Y=-1) 

1260 S0=S:GOTO 1190 

1270 D<X,Y)=D(X,Y) XOR 1 

1280 IF Y THEN B <X ,3-Y) =D (X ,3-Y) XOR 1 

1290 GOSUB 1310:LOCATE 12+X*3 , 1 1+Y*2 , 1 

1300 IF STRIG(0) THEN 1300 ELSE RETURN 
1310 FOR 1=0 TO 2:F0R J=0 TO 4 

1320 LOCATE 12+J*3 , 1 1+1*2 ,0 

1330 PRINT K$(D(J,I)) 

1340 NEXT J,I:RETURN 

1350 RESTORE 1370 :FOR 1=0 TO 2:F0R J=0 TO 4 

1360 READ D(J,I):NEXT J, I: RETURN 

1370 DATA 0,0,1,1,0,0,1,1,1,0,1,0,0,0,1 

1380 LP*="":CO=0 

1390 LOCATE , ,0 

1400 FOR 1=0 TO 7 

1410 LP$=LP$+K*(L(I)) :NEXT I :CLS 

1420 PRINT CHR$(11) ; "tr?" f" ;TAB (8) ;CO+l;TAB( 



16) ;"79-f";TAB<8) ,-AN;" 

1430 IF INKEY*=CHR*(13) THEN RETURN 

1440 LOCATE 0,22 

1450 PRINT CHR*(&H1B) ;"L" ;LP* ;LP* ;LP* ;LP$ ; : 

GOSUB 1490 

1460 LOCATE 0,2:PRINT CHR* (&H1B) ; "M" ; 

1470 IF STRIGC0) THEN RETURN 

1480 CO=CO+l :GOTO 1420 

1490 AN=0:LP*="" :FOR 1=0 TO 7 

1500 L1=0:FOR Il=-2 TO 2: IF 11=0 THEN 11=1 

1510 L1=L1+L((I+I1)AND7) :NEXT II 

1520 M(I)=D(L1,L<D) 

1 530 LP$=LP*+K* ( M ( I ) ) 

1540 NEXT I 

1550 FOR 1=0 TO 7 

1560 L(I)=M(I) :AN=AN+M(7-I)*(2 A I) 

1570 NEXT I : RETURN 

1580 CLS 

1590 LOCATE 11,9,0:PRINT " " 

1600 LOCATE 11,11:PRINT "794 0" 

1610 LOCATE 11,9,1:PRINT""; 

1620 X=0:FOR 1=0 TO 7 :L < I ) =0 :NEXT I 

1630 S=STICK(0) 

1640 IF INKEY*=CHR*(13) THEN RETURN 

1650 IF STRIG(0) THEN GOSUB 1700 

1660 IF S=SS THEN 1630 

1670 X=X-(S=3) + (S=7) :X=X+(X=8)-(X=-1) 

1680 LOCATE U+X,9,l 

1690 SS=S:GOTO 1630 

1700 L(X)=L(X) XOR 1:PRINT K* (L (X-) ) ;CHR* (29 

) ; 

1710 AN=0:FOR 1=0 TO 7 
1720 AN=AN+L(7-I)*(2~I) 

1730 NEXT I 

1740 LOCATE 16 , 1 1 ,0 :PRINT RIGHT* (" "+STR* 

(AN) ,3) 

1750 LOCATE 11+X,9,1 

1760 IF STRIG(0)=0 THEN RETURN ELSE 1760 

1770 SCREEN 1 : WIDTH 32 

1780 CLS: LOCATE 0,9,0 

1790 PRINT TAB(8) ;"1 :L" ^o" 

1800 PRINT TAB (8) ; "2 :!_,*$*:; Ir"f.»h 

1810 PRINT TAB(8) ;"3:)b-Jl Tf~4<?b" 

1820 PRINT TAB (8) ; "4:7" 77" 

1830 PRINT :PRINT:PRINT 

1840 INPUT " f-K £ *Ut< l,T<£"*U";I 

1850 ON I GOSUB 1380, 1580, 1040, 1880 

I860 IF INKEYSO"" THEN I860 

1870 LOCATE, ,0:GOTO 1780 

1880 CLS:INPUT "*£"!,» £ D»W*< l.,7 <£"Jfti" ;SD 

1 890 SCREENS : COLOR 15,1,1: CLS 

1900 OPEN "grp:" AS#1 

1910 FOR 11=0 TO 255 

1920 B$=RIGHT*("0000000"+BIN*(II) ,8) 

1930 FOR K=0 TO 7 

1940 L(K)=VAL(MID$(B$,K+1 ,1)) :NEXT K 

1950 FOR K=7 TO STEP -1 :PRINTL (K) ; :NEXT 

I960 FOR J=2 TO SD 

1970 GOSUB 1490 

1980 NEXT J :PRINT I I, AN 

1990 FOR K=7 TO STEP -1 

2000 PRESET (0, 0) :PRINT #1," input ";II;" 

2010 PRESET (0,8) :PRINT #1 , "output " ;AN ; " 

2020 LINE (II,2U-AN¥2)-(II,211) 

2030 IF INKEY*=CHR*(13) THEN 2070 

2040 NEXT II 

2050 PRESET (0, 24) :PRINT #1 "Hit any key" 

2060 IF INKEY*="" THEN 2060 

2070 CLOSE : SCREEN 1 : RETURN 
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"FONT. BAS" 



■MKBIN2. BAS" 

10 'MAKE (MMLSEQ2.BIN) Cmkb in2 .bas] 

20 CLEAR 100,S<HAFFF 

30 AD=?<HC800:BYOU=1000 

40 SUM=0 

50 FOR I =0TO7 : RE ADA* : D=VAL ( " 8<H " +A* ) : SUM= 

SUM+D : POKE AD ,D :AD=AD+1 :NEXT 

60 READ A*: IF SUMOVAL ( "?<H"+A*> THEN PR IN 

TGY0U;"3"*9(J) DATAtt" *=;*>" u**. " :END 

70 IF GYOU=1910 THEN BSAVE"MMLSEQ2 .BIN" , 

&HC800,AD:END 

80 GYOU=GYOU+10:GOTO 40 

1000 DATA C3,F9,C9,C3,79,CA,C3,BA,608 

1010 DATA CA,C3, 00, 00, 03,00,00, 00, 250 

1020 DATA 00,00,00,00,00,00,00,00,0 

1030 DATA 00,00,00,00,00,00,00,00,0 

1040 DATA 00,00,00,00,00,00,00,00,0 

1050 DATA 00,00,00,00,00,00,00,00,0 

1060 DATA 00,00,00,00,00,00,00,00,0 

1070 DATA 00,00,00,00,00,00,00,00,0 

1080 DATA 00,00,00,00,00,00,00,00,0 

1090 DATA 00,00,00,00,00,00,00,00,0 

1100 DATA 00,00,00,00,00,00,00,00,0 

1110 DATA 00,00,00,00,00,00,00,00,0 

1120 DATA 00,00,00,00,00,00,00,00,0 

1130 DATA 00,00,00,00,00,00,00,00,0 

1140 DATA 00,00,00,00,00,00,00,00,0 

1150 DATA 00,00,00,00,00,00,00,00,0 

1160 DATA 00,00,00,00,00,00,00,00,0 

1170 DATA 00,00,00,00,00,00,00,00,0 

1180 DATA 00, 00, 00, 00, 00, 03, 13, 09, 19F 
1190 DATA FD,7E,01 ,B7,CA,ED,C9,DD,590 
1200 DATA 21 ,92,C8,FD,7E,0C,DD,BE,49D 
1210 DATA 02,28,04,38,1A,18,38,FD,1CD 
1220 DATA 7E,0B,DD, BE, 01 ,28,04,38,289 
1230 DATA 0E,18,2C,FD,7E,0A,DD,BE,372 
1240 DATA 00,28,04,38,02,18,20,FD,19B 
1250 DATA 7E,04,FE,80,28,19,FD,36,374 
1260 DATA 0D,80,FD,7E,00,E6,0F,F6,3F3 
1270 DATA 90,CD,EE,C9,FD,7E,04,CD,560 
1280 DATA EE,C9,3E,00,CD,EE,C9,DD,556 
1290 DATA 21 ,92 ,08 ,FD ,7E ,09 ,DD ,BE ,49A 
1300 DATA 02,28,05,38,10,D2,ED,C9,2FF 
1310 DATA FD, 7E, 08, DD, BE, 01 ,38,05,350 
1320 DATA 28, 03, 03, ED, 09, FD,6E, 05, 414 
1330 DATA FD, 66, 06, 23, 23, FD, 75, 05, 326 
1340 DATA FD,74,06,FD,6E,05,FD,66,44A 
1350 DATA 06,E5,DD,E1 ,DD,7E,00,FE,502 
1360 DATA FF,20,07,AF,FD,77,01 ,C3,40D 
1370 DATA 9F,CA,DD,7E,00,FE,80,28,46A 
1380 DATA 3F,38,44,FE,A0,20,09,DD,35F 
1390 DATA 7E, 01 ,FD, 77, 03, 03, 05, 09, 387 
1400 DATA FE,B0,20,13,FD,7E,00,E6,442 
1410 DATA 0F,F6,C0,CD,EE,C9,DD,7E,5A4 
1420 DATA 01 ,CD,EE,C9,C3,05,C9,DD,4F3 
1430 DATA 7E,00,E6,F0,FE,90,20,A5,4A7 
1440 DATA DD,7E,00,E6,0F,32,91 ,C8,3DB 
1450 DATA DD,7E, 01 ,32,90,08,18,95,393 
1460 DATA 3E,80,FD,77,04,18,06,DD,331 
1470 DATA 7E,00,FD,77,04,FD,7E,07,378 
1480 DATA FD,77,0A,FD,7E,08,FD,77,475 
1490 DATA 0B,FD,7E,09,FD,77,0C,DD,3EC 



10 


font 


& editer sub program C FONT. BAS 1 


20 CLEAR 


100,&HADFF 


30 


MAKE 


(subedit .bin) 


40 AD=&HAE00:GYOU=100 


50 SUM=0 




60 FOR 1= 


=0TO7 : READA* : D=VAL ( " &H " +A* ) : SUM= 


SUM+D :P0KEAD ,D :AD=AD+1 :NEXT 


70 READ A*: IF SUMOVAL < "8<H"+A$) THEN PR IN 


TGY0U;"5" 


*?<» DATA)*" *S#"l«N. n sEND 


80 


IF GYOU=510 THEN BSAVE"subed it .b in" , 


&HAE00,AD:GOTO 1000 


90 

100 


3YOU=GYOU+10:GOTO 50 


DATA 


00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 


110 


DATA 


00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 


120 


DATA 


03 ,33 ,AE ,03 ,6D ,AE ,03 ,AB ,4F0 


130 


DATA 


AE ,03 ,FE ,AE ,03 , 13 ,AF ,03 ,565 


140 


DATA 


F6 ,AE ,03 ,FA ,AE ,2A , 10 ,B0 ,4F9 


150 


DATA 


ED,5B,01 ,AE,23,B7,ED,52,410 


160 


DATA 


E5,C1 ,C9,CD,25,AE,2A,10,449 


170 


DATA 


B0,ED,5B,10,B0,13,13,ED,3CB 


180 


DATA 


B8,DD,21 ,02,B0,3A,00,AE,350 


190 


DATA 


87,5F,16,00,DD,19,3A,00,22C 


200 


DATA 


AE,47,3E,08,90,47,11 ,02,225 


210 


DATA 


00,DD,6E,00,DD,66,01 ,19,2A8 


220 


DATA 


DD,75,00,DD,74,01 ,DD,23,3A4 


230 


DATA 


DD ,23 , 10 ,ED ,C9 ,CD ,25,AE ,466 


240 


DATA 


0B ,0B ,ED ,5B ,01 ,AE ,2A ,01 ,238 


250 


DATA 


AE,23,23,ED,B0,DD,21 ,02,391 


260 


DATA 


B0 ,3A ,00 ,AE ,87 ,5F , 16 ,00 ,294 


270 


DATA 


DD,19,3A,00,AE,47,3E,08,26B 


280 


DATA 


90,47,11 ,02,00,DD,6E,00,235 


290 


DATA 


DD,66,01 ,B7,ED,52,DD,75,48C 



1500 

1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 

1600 

1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 

1700 

1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 

1800 

1810 
1820 
1830 
1840 
1850 
I860 
1870 
1880 
1890 

1900 

1910 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



5E,01 
FD,6E 
75,08 
DD , 56 
IB, 19 
FD,6E 
75, 0A 
CE,00 
FE,80 
7E,00 
C9,FD 
7E,03 
11 ,E6 
09,21 
ED,B3 
08,32 
10,08 
01 ,01 
03,40 
0D,80 

08,00 
0A,00 
00,00 

DD,75 
FD,23 
BD,06 
CD, 95 
CI ,10 
9B,FD 
C9,ED 
19,22 
00,32 
10,08 
00, FD 
21 ,10 
DD,7E 
F7,CD 
FD,C9 
B0,CD 
09, AF 
18,14 

00,00 



,16,00 

,08,FD 
,FD,74 
,01 ,1E 
,CB,3A 
,0A,FD 
,FD,74 
,FD,77 
,28,19 
,E6,0F 
,7E,04 
,CD,EE 
,04,28 
,D0,CA 
,AF,32 
,94,08 
,FD,21 
,DD,36 
, DD , 36 
,DD,36 
,DD,36 
,DD,36 
,FD,6E 
,05,DD 

,11 ,10 

,08,FD 
,08,11 
,F4,F3 
,3E,C3 
,5B,90 
,92,C8 
,94,08 
,05, CD 
,19, CI 
,C8,06 
,01 ,B7 
,BA,CA 

,06,10 

,EE,C9 
,CD,EE 
,44,03 

,00,00 



,AF.FD 
,66,09 
,09,21 
,00,CB 
,CB,1B 
,66,0B 
,0B,FD 
,0C,FD 
,FD,77 
,F6,90 
,CD,EE 
,C9,C9 
,FA,F1 
,06,09 
,92,08 
,06,08 

,00,B0 

,02,40 
,04,80 

,07,00 
,09,00 
,0B,00 

,00,FD 
,74,06 
,00,DD 
,21 ,10 

,10,00 

,21 ,79 
,32,9A 
,C8,2A 
,3A,94 
,06,08 
,98,08 
,10,F4 
,08,11 
,C0,DD 
,3E,C9 
,78,E6 
,3E,7B 
,09,10 
,E0,05 

,00,00 



,77,07,29F 
,19,FD,3F5 

,00,00,218 

,3A,CB,322 
,19,EB,323 
,19,FD,3F9 
,7E,0C,382 
,7E,04,3CD 
,0D,FD,43D 
,CD,EE,4B4 
,C9,FD,5C9 
,F5,DB,59E 
,D3,10,3F1 
,0E,11 ,2B2 
,32,93,4A0 
,DD,21 ,362 
,DD,36,3B9 
,DD,36,26A 
,DD,36,2ED 
,DD,36,2BA 
,DD,36,237 
,DD,36,23B 
,66,01 ,2DB 
,FD,23,3CE 
,19,10,247 
,C8,C5,386 
,FD,19,361 
,CA,22,43E 
,FD,FB,55D 
,92,C8,4ED 
,C8,CE,3F9 
,FD,21 ,2BA 
,11 ,10,3EB 
,C9,DD,481 
,10,00,128 
,19,10,309 
,32,9A,51B 
,0F,F6,43F 
,CD,EE,5A8 
,ED,C9,5C2 
,EA,11 ,253 

,00,00,0 



176 X-A—&HIT-' -<?/;:*■"! 



300 DATA 00, DD, 74, 81 ,DD,23 ,DD ,23 ,352 

310 DATA 10,EB,C9,21 ,FF,FF,22,01 ,406 

320 DATA AE,3A,00,AE,87,5F,16,00,292 

330 DATA 21 , 00, B0, 19, 5E, 23, 56,05,296 

340 DATA DD,E1 ,ED,4B,03,AE,21 ,00,3C8 

350 DATA 00,16,00,DD,7E,00,FE,FF,36E 

360 DATA C8,FE,81 ,30 , IB ,DD ,5E ,01 ,3CE 

370 DATA 19,E5,B7,ED,42,E1,DD,23,4C5 

380 DATA DD,23,38,E7,22,03,AE,DD,3CF 

390 DATA 2B,DD,2B,DD,22,01,AE,C9,3AA 

400 DATA DD,23,DD,23,18,D5,1E,06,311 

410 DATA IB, 06, IE, 07, 18, 02, IE, 08, 83 

420 DATA F3,DB,AA,57,E6,F0,B3,D3,62B 

430 DATA AA,DB,A9,32,05,AE,7A,D3,460 

440 DATA AA,FB,C9, 21 ,00,00,22,03,264 

450 DATA AE,3A,00,AE,87,5F,16,00,292 

460 DATA 21 ,00,B0,19,5E,23,56,EB,2AC 

470 DATA 11 ,00,00,3A,01 ,AE ,BD ,20 , 1D7 

480 DATA 05,3A,02,AE,BC,C8,46,23,2DC 

490 DATA 4E,23,78,FE,81 ,30,EC,EB,46F 

500 DATA 06,00,09,EB,ED,53,03,AE,2EB 

510 DATA 18,E1 ,B7,B7,B7, 00, 00,00, 31E 

1000 'make font data in screen? pagel 

1010 C0L0R1 ,15,15:SCREEN7,0,0:SETPAGE 1, 

1 :CLS 

1020 FOR Y=32T048STEP4 

1030 LINE(280,Y)-STEP(47,0) ,3 

1040 LINE(280,Y+24)-STEP<47,0) ,3 

1050 NEXT 

1060 GOSUB1090 

1070 BSAVE"font .sc7" ,0,?<H5FFF,S 

1080 SETPABE 0,0: END 

1090 ' 

1100 RESTORE 1490 

1110 FOR K=0TO19 

1120 FOR Y=0TO 15 

1130 READ A:A*=RIGHT*(STRING*<11 ,"0" )+BI 

N*(A) ,12) 

1140 FOR J=1T012 

1150 IF MID*(A*,J,1)="0"THEN 1170 

1160 PSET(J-1+K*14,Y) ,VAL (MID* (A* , J , 1 ) ) 

1170 NEXTJ:NEXT Y :NEXT K 

1180 'toon kigou 10*27 

1190 FOR Y=0TO27 

1200 READ A :A*=RIGHT* (STRING* <9,"0")+BIN 

*(A) ,10) 

1210 FOR J=1TO10 

1220 IF MID*(A*,J,1)="0"THEN 1240 

1230 PSET(J-1 ,Y + 16) ,VAL(MID*(A*,J,1)) 

1240 NEXTJrNEXT Y 

1250 'heon kigou 14*16 

1260 FOR Y=0TO15 

1270 READ A:A*=RIGHT*(STRING*(13,"0")+BI 

N*(A) ,14) 

1280 FOR J=1T014 

1290 IF MID*(A*,J,1)="0"THEN 1310 

1300 PSET(J-1 + 10,Y + 16) ,VAL(MID*(A*,J,1)) 

1310 NEXTJrNEXT Y 

1320 '#,-flat 6*10 

1330 FOR K=0TO1 

1340 FOR Y=0TO9 

1350 READ A:A*=RIGHT*(STRING*(5,"0")+BIN 

*(A) ,6) 

1360 FOR J=1T06 

1370 IF MID*(A*,J,1)="0"THEN 1390 

1380 PSET(J-1+K*6+24,Y+16) ,VAL (MID* (A*«J 

,1)) 

1390 NEXTJ:NEXT Y :NEXT K 

1400 '3renpu 14*16 

1410 FOR Y=0TO15 

1420 READ A:A*=RIGHT*(STRING*(13,"0")+BI 

N*(A) ,14) 

1430 FOR J=1T014 

1440 IF MID*(A*,J,1)="0"THEN 1460 

1450 PSET(J-1+36,Y+16) ,VAL (MID* (A* , J , 1 ) ) 

1460 NEXTJ:NEXT Y 

1470 RETURN 

1480 ' 

1490 DATA 96,80,72,100,82,72,100,82,72,1 
00,82,72,1 988 , 4034 , 3968 , 3840 
1500 DATA 96,80,72,68,98,80,72,68,98,80, 
72,68,1 986 , 4032 , 3968 , 3840 





1510 DATA 96,112,120,68,66,98,114,124,68 
,66,66,68,1 992 , 4032 , 3968 , 3840 
1520 DATA 96,112,120,126,71,65,65,65,66, 
68,72,64,1 984 , 4032 , 3968 , 3840 

1530 DATA 64,64,64,64,64,64,64,64,64,64, 

64 , 64 , 1 984 , 4032 , 3968 , 3840 

1540 DATA 64,64,64,64,64,64,64,64,64,64, 

64,64,1984,2112,2176,3840 

1550 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1984 2 

112,2176,3840 

1560 DATA 960,1984,4032,4032,2176,2304,3 

648,2176,2304,3648,2176,2304,3648,2176,2 

304,3584 

1570 DATA 960,1984,4032,3968,2112,2176,3 

840 ,3584 ,21 12 ,2176 ,3840 ,3584 ,21 12 ,2176 ,3 

840,3584 

1580 DATA 960,1984,4032,3968,2176,2112,2 

112,2176,3968,3648,3136,2112,2176,3840,3 

584,3072 

1590 DATA 960,1984,4032,3968,2112,2080,2 

064 ,2064 ,2064 ,2064 ,2080 ,2272 ,4032 ,3840 ,3 

584,3072 

1600 DATA 960,1984,4032,3968,2048,2048,2 

048 , 2048 , 2048 , 2048 , 2048 , 2048 , 2048 , 2048 , 2 

048,2048 

1610 DATA 960,1088,2112,3968,2048,2048,2 

048 ,2048 ,2048 ,2048 ,2048 ,2048 ,2048 ,2048 ,2 

048,2048 

1620 DATA 1536,400,1648,800,416,1600,832 

,128,1152,768,256,0,0,0,0,0 

1630 DATA 1536,1808,240,3104,3616,320,19 

2,3200,3712,768,256,0,0,0,0,0 

1640 DATA 1536,3856,1552,480,32,3136,364 

8,896,128,256,256,0,0,0,0,0 

1650 DATA 1536,3856,1552,480,32,64,64,12 
8,128,256,256,0,0,0,0,0 

1660 DATA 1024,768,384,384,896,1792,3584 
,3584,1792,768,1920,3584,3072,1024,512,0 
1670 DATA 0,0,0,0,4092,4092,4092,0,0,0,0 

,0,0,0,0,0 

1680 DATA 0,0,0,0,0,0,4092,4092,4092,0,0 

,0,0,0,0,0 

1690 DATA 8,28,54,54,38,38,44,44,56,48,8 
,208 ,444 ,854 ,851 ,851 ,787 ,787 ,406 ,248 ,16 
, 16 , 16 ,400 ,400 ,272 ,272 ,224 

1700 DATA 4032,4192,8242,8248,12344,1234 
4,58,56,56,112,224,384,768,1024,6144,819 

1710 DATA 2,18,19,30,50,18,19,30,50,16 
1720 DATA 32,32,32,32,44,50,34,36,40,48 
1730 DATA 480,528,528,16,96,6246,4114,46 
26 ,4626 ,4578 ,4098 ,4098 ,4098 ,4098 ,4098 ,40 
98 



"AUTOEXEC. BAS" 



10 ' [AUTOEXEC. BAS3 

20 CLEAR 100,?<HADFF 

30 BLOAD" subedit .bin" 

40 BLOAD"mml seq2.bin" 

50 'clear music data 

60 PA=&HB012 

70 FOR I=&HB000TO&HB00E STEP2 

80 PA*=RIGHT*("000"+HEX*(PA) ,4) 

90 POKE I ,VAL("8<h"+RIGHT*(PA*,2) ) 

100 POKE I + l,VAL("8<h"+LEFT*(PA*,2)) 

110 PA=PA+2 

120 NEXT I 

1 30 POKE&HB0 1 , &H2 1 : POKE&HB0 1 1 , ?<HB0 

140 FOR I=&HB012TO8<HB021 : POKE I ,255:NEXT 

150 COLOR 1,15,15:SCREEN7:SETPAGE1,1:CLS 

160 BLOAD "-Font .sc7" ,S 

170 SETPAGE0,0: COLOR 15,4,7 

180 RUN"gakufued.bas" 
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"GAKUFUED.BAS" 



10 'CGAKUFUED.BAS3 1989.5 POCHI 

20 CLEAR 100,&HADFF 

30 DEFINT A-Z:DEFSNB D,S 

40 DIM NY(ll) ,YN(6) ,FL(11) 

50 DEFUSR0=S<HAE 1 : DEFUSR 1 =&HAE 1 3 : DEFUSR2 

=&H AE 1 6 : DEFUSR3=8<H AE 1 9 : DEFUSR4=&H AE 1 C : DE 

FUSR5=&H3E :DEFUSR6=&HAE1F :DEFUSR7=&HAE22 

: DEFUSR8=&HC800 : DEFUSR9=&HC806. 

60 OUT1 ,0:OUT1 ,0:OUT1 ,&H40:OUT1 ,&H4E:0UT 

1,&H15 '8251 tZVP'MX' 

70 FOR 1=1TO10:KEY I,"":NEXT 

80 COLOR1 ,15,15:SCREEN0:WIDTH40:KEYOFF 

90 ON STOP GOSUB100:STOPON:GOTO 130 

100 'INTERUPT FUCK OFF, MIDI ALL NOTE OFF 

110 STOPOFF :POKE8<HFD9A ,&HC9 :A=USR9 (0) 

120 COLOR15,4,7:A=USR5(0> :END 

130 PA=1 :SBAR=1 :FUTEN=0 :SHARP=0 :REN3=0 :S 

Y=192 

140 SCREEN7,0,0:SETPAGE 0,0 

150 CLOSE#l :OPEN"grp:"AS#l 

160 RESTORE 170: FOR I=0TO1 1' :READ NY(I):NE 

XT 

170 DATA 0,0,2,2,4,6,6,8,8,10,10,12 

180 RESTORE 1 90 :FOR I=0TO6:READ YN(I):NEX 

T 

190 DATA 0,2,4,5,7,9,11 

200 RESTORE210:FOR I=0TO11:READ FL(I):NE 

XT 

210 DATA 0,1,0,1,0,0,1,0,1,0,1,0 

220 ' 

230 SPRITE* <0)="9-*»* < »-9" 

240 SPR I TE* < 1 ) = " ?Jtf)" +CHR* ( 255 ) +CHR* ( 255 ) 

+ "rt»9" 

250 PSET (208, 169) :PRINT#1 , "PART BAR TI 

ME DATA 

260 PSET (208, 169+8) :PRINT#1 ," 1 1 

4/4" 

270 COPY(0,16)-(9,43) ,1T0(16,28) 

280 COPY(0,16)-(9,43) ,1TO(16,108) 

290 COPY(10,16)-(23,31) ,1T0(16,57) 

300 COPY(10,16)-(23,31> ,1T0(16,137) 

310 LINE(134,198)-STEP(2,2) ,1 ,BF 

320 C0PY(36,16)-(49,31) , 1TO ( 144 , 186) 

330 C0PY(24,16)-(29,25) , 1TO ( 162 , 192) 

340 COPY(0,0)-(97,15) ,1T0(32,186) 

350 LINE (87, 186) -STEP (12, 15) ,15,BF,X0R 

360 LINE (87, 186) -STEP (12, 15) ,5,BF,0R 

370 COPY (238,0) -STEP (13, 15) , 1TO ( 182 , 186) 

380 LINE(16,169>-(191 ,178) ,13,B 

390 PSET(218,186) :PRINT#1 ,"F1 F2 F3 

F4 F5" 
400 PSET(210, 194) :PRINT#1, "FILE BAR PA 
RT MSTOP START" 

410 LINE (336, 193) -STEP (40, 8) ,15,BF,X0R 
420 LINE (336, 193) -STEP (40, 8) ,13,BF,0R 
430 FOR L=0TO80STEP80:FOR Y=32T048STEP4 
440 LINE(16,Y+L)-(495,Y+L) ,3, ,AND 
450 LINE(16,Y+L+24)-(495,Y+L+24) ,3, ,AND 
460 NEXT:NEXT 
470 GOTO 590 
480 'part? b3"?i>" 

490 PSET (208, 177) :PRINT#1 ,SPC(2) :PSET(20 
8,177) :PRINT#1 ,PA:RETURN 
500 'bar??? display 

510 PSET (248, 177) :PRINT#1 ,SPC(4) :PSET(24 
8,177) :PRINT#1 , INT (SBAR/SY ) +1 : RETURN 
520 'data???? taOl'~ 

530 PSET (336, 177) :PRINT#1 ,SPC(5) :PSET(33 
6,177) :PRINT#1 ,DSIZ :RETURN 
540 'SYousetu step??/?? talv' 
550 PSET (288, 177) :PRINT#1 ,SPC (6) :PSET(28 
8,177) :PRINT#1 ,STR*(A1> ;"/" ;RIGHT* (STR* ( 
Bl) ,LEN(STR*(B1) )-l) rRETURN 
560 'Data SIZe 

570 DSIZ=&HC7FF- (PEEK (&HB010) +PEEK (&HB01 
1 ) *256-65536 ! ) :DSIZ=DSIZ/2 
580 GOSUB 520: RETURN 
590 ' 

600 0P=4:S=0P*14:PA=1: G0SUB6 1 : GOSUB560 : 
GOTO1080 'TO MAIN 



760 
770 



800 

810 
820 



610 'part 

620 A 1 =&HB000+ < P A- 1 ) *2 : PD=PEEK (AD +PEEK ( 

Al+l>*256-65536! 

630 AD=PD :BD=AD :L=0 :PX=32 :GOSUB640 :PY=52 

:PUTSPRITE0 , ( 14 ,48) ,5 ,-INS : GOSUB 1 700 : RET 

URN 

640 'display -from PX 

650 P=AD:LL=L:FF=0 

660 X1=PX+448*(PX>452> 

670 AT=AD-(PX-32)/ 14+62 

680 FOR AD=P TO AT STEP 2 

690 L=80+80*(AD<AT-30) 

700 COPY (280, 6) -STEP (26, 80) ,1T0(X1 ,6+L) 

710 IF FF THEN 730 

720 GOSUB760 

730 X1=X1+28:IF Xl>452 THEN Xl=Xl-448 

740 NEXT AD 

750 AD=P:L=LL: RETURN 

'displ ay data 

IF PEEK(ADK&H80THEN 910 
780 IF PEEK(AD)=«<H80THEN 840 
790 IF (PEEK (AD) AND &HF0)=S<H90 THEN 2270 

IF PEEK(AD)=S<HA0 THEN 2470 

IF PEEK(AD>=&HB0 THEN 2660 

IF PEEK(AD)=&HFF THEN LINE (Xl+14 ,32+ 
L) -STEP (2 ,39) ,3 ,BF :LINE (Xl+20 ,32+L) -STEP 
(6,39) ,3,BF:FF=1 
830 RETURN 
840 '*2<>7 taVV" 
850 Yl=32+L 

860 IF PEEK(AD+1)MOD9=0 THEN FPT=LEN(BIN 
* (PEEK (AD+1 ) ) ) -2 :LINE (Xl+24 , Yl ) -STEP (2 ,2 
) ,1 ,BF:GOTO 890 

870 IF PEEK (AD+1 )MOD3=0 THEN FPT=LEN(BIN 
* (PEEK (AD+1 > ))-l :GOTO 890 

880 FPT=LEN (BIN* (PEEK (AD+1) ) )-l :C0PY(36, 
16)-STEP(13,15) ,1T0(X1+13,8+L) 
890 COPY ( (FPT+12)*14,0)-STEP(11 ,15) ,1T0( 
Xl + 14, Yl) 
900 RETURN 
910 'Tj7' taOi'" 
920 N=PEEK(AD) 

930 YY=80-NY (NM0D12) -14* ( (N-36)¥12)+L 
940 IF PEEK(AD+1)MOD9=0 THEN FPT=LEN(BIN 
*(PEEK(AD+1) ) )-2:LINE(Xl+24,YY)-STEP(2,2 
) ,1 ,BF:GOTO 970 

950 IF PEEK (AD+1 )MOD3=0 THEN FPT=LEN(BIN 
* (PEEK (AD+1 )> )-l :GOTO 970 

960 FPT=LEN (BIN* (PEEK (AD+1) > )-l :C0PY(36, 
16) -STEP (13, 15) ,1T0(X1 + 13,8+L> 
970 IF N>71AND FPT<7 THEN COPY ( (FPT+6) *1 
4,0)-STEP(U ,15) ,lT0(Xl + 14,YY-2) ELSE CO 
PY( (FPT-1)*14,0)-STEP(11 ,15) ,1T0(X1+14,Y 

Y-13) 

980 IF FL(NM0D12)=1THEN COPY (24 , 16) - (29 , 
25) ,lT0(Xl+6,YY-4) 

990 IF N>78 THEN LINE (Xl+10 ,28+L) -STEP ( 
12,0) ,3, ,AND:LINE(X1+10,24+L)-STEP(12,0) 
,3,,AND:G0T0 1020 

1000 IF N>58AND N<64 THEN LINE (Xl+10, 52 
+L) -STEP (12,0) ,3, ,AND:GOTO 1020 
1010 IF N<43 THEN LINE (Xl+10 ,76+L) -STEP 
(12,0) ,3,,AND:LINE (Xl+10, 80+L) -STEP( 12 , 
0) ,3,, AND 
1020 RETURN 

1030 IF FUTEN THEN LINE ( 131 , 186) -( 142 ,20 
1 ) ,5 ,BF :LINE ( 134 , 198) -STEP (2 ,2) , 15 ,BF EL 
SE LINEU31 ,186)-(142,201) , 15 ,BF :LINE ( 13 
4, 198) -STEP (2, 2) ,1,BF 

1040 C0PY(36,16)-(49,31) , 1TO ( 144 , 186) :IF 
REN3 THEN LINE ( 144 , 186) - ( 157 ,201 > , 15 ,BF 
,XOR:LINE(144,186)-(157,201) ,5,BF,0R 
1050 RETURN 

1060 IF KYUFU THEN LINE ( 178 , 186) -STEP ( 13 
, 15) ,15 ,BF ,XOR :LINE (178 , 186) -STEP ( 13 , 15) 
,5,BF,0R ELSE LINE ( 178, 186) -STEP ( 13 , 15) , 
15 ,BF :COPY (238 ,0) -STEP ( 13 , 15) , 1TO ( 182 , 18 
6) 

1070 RETURN 
1080 ' 
1090 'Ml/ 

1100 K=STICK(0) :IF K=0 THEN UK=0:GOTO 11 
90ELSE UK=1 
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UliZi IF PX=900 AND K=3 THEN GOSUB1850:GO 
TO 1090 

1120 IF PX=32 AND K=7 THEN GOSUB1940 :GOT 
O 1090 

1130 PY=PY+2*(K=1AND PY>24) -2* (K=5AND FY 
<80) 

1140 PX=PX-28*( (PEEK(ADX>255)AND K=3AND 
PX<( 14*63) )+28*< (PEEK (AD-2)<>255) AND K= 
7AND PX>32) 
1150 AD=BD+(PX-32)/14 

1160 PUTSPRITE 0, (PX/2+224*(PX>452)-2,PY 
-80*<PX>452)-4> ,5, -INS 
1170 IF UK THEN 1100 
1180 ' MZ/Jt-ZlWa-7 

1190 A=USR3(0> :IF(PEEK(S<HAE05)AND4)=0 TH 
EN INS=NOT INS:PUTSPRITE0, (PX/2+224* (PX> 
452)-2,PY-B0*(PX>452)-4) ,5,-INS:G0T0 120 
ELSE 1210 

1200 A=USR3(0> :IF(PEEK(S<HAE05)AND4>=0 TH 
EN 1200 ELSE 1220 

1210 IF <PEEK(AD)<>255)AND(PEEK(8<HAE05)A 
ND8)=0 THEN GOSUB 1500 : A=USR1<0) :GOSUB 6 
40:GOSUB 1700: GOSUB 560: GOTO 1090 
1220 ' 

1230 K*=INKEY* 

1240 IF K*=CHR*(13)THEN 1570 
1250 IF "0"<K* AND K*<"8"THEN 1340 
1260 IF K*="0" THEN SHARP=NOT SHARP: IF S 
HARP=-1 THEN LINE ( 159 , 186) - < 170 ,201 ) , 15 , 
BF,XOR:LINE(159,186)-<170,201) ,5,BF,0R E 
LSE LINE(159,186)-<170,201) ,15,BF:C0PY ( 
24,16)-(29,25) , 1TO < 162 , 192) 
1270 IF K*="8"AND(0PO6AND OPO0) THEN F 

UTEN-NOT FUTEN • REN3- . COGUD 1 OO© 

1280 IF K*="9"THEN REN3=N0T REN3:FUTEN=0 

: GOSUB 1030 

1290 IF K*="T"OR K*="t"THEN GOSUB2140:GO 

TO 1490 

1300 IF K*="V"OR K*="v"THEN GOSUB2340:GO 

TO 1490 

1310 IF K*="@"THEN GOSUB2540 :GOTO 1490 

1320 IF K*="-"THEN KYUFU=NOT KYUFU:GOSUB 

1060: GOTO 1490 

1330 GOTO 1400 

1340 '^i"J_It"i' 9 ~?7~j VaOTn 

1350 IF FUTEN AND <K*="l"OR K*="7")THEN 

GOTO 1490 

1360 LINE(3l+S,l86)-STEP(l4,l5) ,15,BF:C0 

PY(S,0)-(S+I3,l5) ,1T0(32+S,l86) 

1370 OP=(VAL(K*)--l> :S=0P*l4 

1380 LINE(3l+S,186)-STEP(l2,l5) ,15,BF,X0 

R:LINE<3l+S,l86)-STEP(l2,l5) ,5,BF,0R 

1390 GOTO 1490 

1400 ' M-j_Z>yj9va-j*- 

1410 A=USR6(0) 

1420 IF(PEEK(8<HAE05)AND33)=0 THEN3160 

1430 IF<PEEK(?<HAE05)AND64)=0 THEN2810 

1440 IF(PEEK(?<HAE05>ANDl28>=0 THEN2730 

1450 IF(PEEK(8<HAE05)AND32)=0 THEN2960 

1460 A=USR7(0) 

1470 IF(PEEK(S<HAE05)ANDl)=0 THEN3500 

1480 IF(PEEK(8<HAE05)AND2)=0 THEN3290 

1490 GOTO 1090 

1500 'subroutine address set 

1510 POKE 8<HAE00,PA-l 

1520 AD*=RIGHT*<"000"+HEX*(AD) ,4) 

1530 POKE &HAE01 ,VAL ( "&h"+RIGHT* ( AD* ,2) ) 

1540 POKE &HAE02,VAL("8<h"+LEFT*<AD*,2> ) 

1550 RETURN 

1560 ' 

1570 'X-j7° *a07 ZzWaV 

1580 IF INS OR (PEEK (AD) =255) THEN GOSUB 15 

00:A=USR0(0) 

1590 X1=PX+448*(PX>452) :L=-80* (PX >452) 

1600 LINE (XI ,6+L)-STEP(26,80) ,15,BF 

1610 COPY (280, 6) -STEP (26, 80) ,1T0(X1 ,6+L 

) 

1620 IF KYUFU THEN N=&H80:GOTO 1650 

1630 N=(80-PY) /2 

1640 N=36+12*(N¥7)+YN(NM0D7> -SHARP 

1650 POKE AD,N :POKE AD+1 , (3+REN3) * (2'-0P 

>*<!-. 5*FUTEN) 



1660 IF INS OR (PEEK (AD+2) =255) THEN GOSU 

B640 ELSE X1=PX+448*(PX>452) :L=-80*(PX>4 

52) :GOSUB760 

1670 GOSUB1700:GOSUB560 

1680 K*=INKEY*:IF K*<>""THEN 1680 

1690 K=3:G0T0 1110 

1700 'VaWJI tl' 

1710 CD=AD-(PX-32)/14:FF=0 

1720 POKE &HAE00,PA-1 

1730 AD*=RIGHT*("000"+HEX*(CD) ,4) 

1740 POKE &HAE01 ,VAL ( "?<h "+RIGHT* ( AD* ,2) ) 

1750 POKE &HAE02,VAL("8<h"+LEFT*(AD*,2) ) 

1760 A=USR4(0) :ST=PEEK(S<HAE03)+PEEK(S<HAE 

04) *256 :SBAR=ST :GOSUB500 

1770 FOR L=0TO 80 STEP 80 :X 1=32 : FOR I=CD 

TO CD+30 STEP 2 
1780 IF FF THEN 1830 

1790 IF (PEEK ( 1-32* <L=80) )> =255 THEN FF-1 
:GOTO 1840 

1800 IF PEEK ( 1-32* (L=80) ) >S<H80 THEN 1830 
1810 ST=ST+PEEK ( 1+1-32* (L=80) ) 
1820 IF(ST/SY)=INT(ST/SY) THEN LINE(Xl+2 
7,32+L)-STEP(0,39) ,3,,AND:G0T0 1840 
1830 COPY (280, 6) -STEP (0,55+19) ,lT0(Xl+27 
,6+L) 

1840 X1=X1+28:NEXT:NEXT:RETURN 
1850 'scroll le-ft 

I860 IF PEEK (AD) =255 THEN RETURN 
1870 BD=BD+2:AD=BD+62 

1880 COPY (60, 6) -STEP (28*15, 79) ,0TO(32,6) 
1890 COPY (32, 6+80) -STEP (27, 79) ,0TO(452,6 
) 

1 900 COPY ( 60 , 6+80 ) -STEP ( 28* 1 5 , 79 ) , 0TO ( 32 
,6+80) 

1910 COPY (280, 6) -STEP (27, 79) ,lT0(452,6+8 
0) 

1920 X1=452:L=80 
1 930 GOSUB760 : GOSUB 1 700 : RETURN 
1940 'scroll right 
1950 IF AD=?<HB012 OR PEEK (AD-2) =255 THEN 

RETURN 
I960 BD=BD-2:AD=BD 
1970 FOR X1=424T032 STEP-28 
1980 COPY (XI ,6+80) -STEP (27, 80) ,0TO(Xl+28 
,6+80) :NEXT 

1990 COPY (452, 6) -STEP (27, 80) ,0TO(32,6+80 
) 

2000 FOR X1=424T032 STEP-28 
2010 COPY(Xl ,6) -STEP (27, 80) ,0TO (X 1+28 ,6) 
:NEXT 

2020 COPY (280, 6) -STEP (27, 80) ,1T0(32,6) 
2030 X1=32:L=0 

2040 GOSUB 760:GOSUB1700:RETURN 
2050 'command input 
2060 S*="" 

2070 K*=INKEY*:IF K*=""THEN 2070 
2080 IF K*=CHR*(13) OR K*=CHR* (27) THEN R 
ETURN 

2090 IF K*<"0" OR K*>"9"THEN 2070 
2100 S*=S*+K* 

2110 PSET (CX,CY) :PRINT#1 ,S* 
2120 IF LEN(S*)=SL+1 THEN S*=K* :PSET (CX , 
CY) :PRINT#1 ,K*;SPC(SL) 
2130 GOTO 2070 

2140 'Til*' ZlO'}3? 

2150 PSET (20, 170) :PRINT#1 , "Tempo =";SPC( 

4) 

2160 CX=84:CY=170:SL=3:GOSUB 2050 

2170 IF K*=CHR*(27)THEN 2250 

2180 ' 

2190 IF VAL(S*)<40 OR VAL(S*>>255 THEN 2 

140 

2200 IF INS OR (PEEK (AD) =255) THEN GOSUB 15 

00:A=USR0(0) 

2210 POKE AD,&H90 OR (VAL (S*) ¥75) 

2220 POKE AD+1 ,INT( (VAL (S*) -75* (VAL (S*) ¥ 

75) )/ 75*256) 

2230 IF INS OR (PEEK (AD+2) =255) THEN GOSUB 

640 ELSE X1=PX+448*(PX>452> :L=-80* (PX>45 

2) :GOSUB760 

2240 GOSUB 1 700 : GOSUB560 

2250 PSET(20,170) :PRINT#1 ,SPC(21) 
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2260 RETURN 
2270 'fy*° taOiz" 

2280 TEMPO= I NT ( ( PEEK ( AD ) AND7 ) *75+PEEK ( AD 
+l>*75/256+.5> 

2290 COPY (280, 6) -STEP (27, 80) ,1T0(X1 ,6+L) 
2300 PSET(X1 + 1 ,L+16) :PRINT#1 , "Tem" 
2310 PSET(X1 + 1 ,L+24) :PRINT#1 ,"po" 
2320 PSET(X1 + 1 ,L+32) :PRINT#1 , RIGHT* (STR* 
(TEMPO) ,3) 
2330 RETURN 
2340 ' 

2350 PSET (20, 170) :PRINT#1 /'Velocity =" ;S 
PC(4) 

2360 CX=108:CY=170:SL=3:GOSUB2050 
2370 IF K*=CHR*(27)THEN 2450 
2380 ' 

2390 IF VAL(S*)>127 THEN 2340 
2400 IF INS OR (PEEK (AD) =255) THEN G0SUB15 
00:A=USR0(0) 
2410 POKE AD,?<HA0 
2420 POKE AD+1,VAL(S*) 

2430 IF INS OR (PEEK (AD+2) =255) THEN GOSUB 
640 ELSE X1=PX+448*(PX>452> :L=-B0*(PX>45 
2) :GOSUB760 

2440 GOSUB 1 700 :GOSUB560 
2450 PSET(20,170) :PRINT#1 ,SPC(21) 
2460 RETURN 
2470 'VOVf'f- 
2480 VEL=PEEK(AD+1> 

2490 COPY (280, 6) -STEP (27, 80) ,1T0(X1 ,6+L) 
2500 PSET(X1 + 1 ,L+16) :PRINT#1 ,"Ve1 " 
2510 PSET(X1 + 1 ,L+32) :PRINT#1 ,RIGHT*(STR* 
(VEL) ,3) 
2520 RETURN 
2530 ' 

2540 PSET (20,170) :PRINT#1 /'Program Cheng 
e =" ;SPC<4) 

2550 CX=152:CY=170:SL=3:GOSUB2050 
2560 IF K*=CHR*(27)THEN 2640 
2570 ' 

2580 IF VAL(S*>>127 THEN 2530 
2590 IF INS OR (PEEK (AD) =255) THEN G0SUB15 
00:A=USR0(0) 
2600 POKE AD,2<HB0 
2610 POKE AD+1,VAL(S*) 

2620 IF INS OR (PEEK (AD+2) =255) THEN GOSUB 
640 ELSE X1=PX+448*(PX>452) :L=-80*(PX>45 
2) :GOSUB760 

2630 GOSUB 1 700 : GOSUB560 
2640 PSET(20,170) :PRINT#1 ,SPC (21 ) 
2650 RETURN 
2660 '7 a?"7£ +J.-JV 
2670 PRG=PEEK(AD+1) 

2680 COPY (280, 6) -STEP (27, 80) ,1T0(X1 ,6+L) 
2690 PSET(X1 + 1 ,L+16) :PRINT#1 ,"Prg" 
2700 PSET(X1+1 ,L+24) :PRINTttl ,"Chg" 
2710 PSET(X1 + 1 ,L+32) :PRINT#1 ,RIGHT*(STR* 
(PRG) ,3) 
2720 RETURN 
2730 'part select 

2740 PSET(20,170) :PRINT#1 ,"Part =";SPC(2 
) 

2750 CX=76:CY=170:SL=1 -.GOSUB 2050 
2760 IF K*=CHR*(27)THEN 2790 
2770 IF VAL(S*)<1 OR VAL(S*)>8 THEN 2740 
2780 PA=VAL(S*> : GOSUB 610 
2790 PSET(20,170) :PRINT#i ,SPC (21 > 
2800 SBAR=0:GOSUB 480:GOTO 1080 
2810 'bar select 

2820 PSET(20,170) :PRINT#1 ,"Bar =";SPC(4) 
2830 CX=72:CY=170:SL=3:GOSUB 2050 
2840 IF K*=CHR*(27)THEN 2940 
2850 IF VAL(S*)>256 THEN 2820 
2860 IF VAL(S*)=1 THEN GOSUB610 :GOTO2790 
2870 POKE &HAE00,PA-1 

2880 SBAR= (VAL (S*) -1 ) *SY :SB*=RIGHT* ( "000 
"+HEX*(SBAR) ,4) 

2890 POKE 8<HAE03,VAL("8<h"+RIGHT*(SB*,2) ) 
2900 POKE &HAE04,VAL<"8<h"+LEFT*(SB*,2) ) 
2910 A=USR2(0) 

2920 PD=PEEK (8<HAE01 ) +PEEK <8<HAE02) *256-65 
536!: IF PD=-1 THEN 2940 
2930 PD=PD+2:GOSUB630 



2940 PSET(20,170) :PRINT#1 ,SPC(21) 

2950 GOTO 1080 

2960 'file 

2970 SCREEN0:PRINT"1 - Fi 1 es" :PRINT"2 - 

Load" :PRINT"3 - Save" :PRINT"4 - Return t 

o Editer" 

2980 K*=INKEY*:IF K*=""THEN 2980 

2990 ON INSTR (" 1234" ,K*) GOTO 3010,3050,3 

090,3150 

3000 GOTO 2980 

3010 CLS:FILES"*.mml " 

3020 PRINT: PR I NT "Push SPACE KEY" 

3030 IF STRIG(0)=0 THEN 3030 

3040 GOTO 2970 

3050 CLS: PR I NT "Load MUSIC DATA" 

3060 INPUT"File name =" ;FL* 

3070 BLOAD FL*+".mml" 

3080 GOTO 130 

3090 CLS: PR I NT "Save MUSIC DATA" 

3100 INPUT"File name = " ;FL* 

3110 FL*=FL*+" .mml " 

3 1 20 EOD=PEEK ( ?<HB0 1 ) +PEEK ( &HB0 1 1 ) *256-6 

5536! 

3130 BSAVE FL*,S<HB000,EOD 

3140 GOTO 130 

3150 GOTO 130 

3160 'time input 

3170 A1=4:B1=4 

3180 PSET(20, 170) :PRINT*1 , "Time =";A1;"/ 

";B1;SPC(2) 

3190 K=STICK(0) :IF K=0 THEN 3240 

3200 IF K=l OR K=5 THEN 3230 

3210 A1=A1+(K=7 AND A1>2)-(K=3 AND AKB1 

) 

3220 GOTO 3180 

3230 B1=B1*(1+.5*(K=5 AND Bl >2) ) * ( 1- (K=l 

AND BK16) ) :A1=2:G0T0 3180 
3240 K*=INKEY* 

3250 IF K*=CHR*(27> THEN 3280 
3260 IF K*=CHR*(13) THEN SY=192*A1 /Bl :GO 
TO 3280 

3270 GOTO 3190 

3280 PSET(20,170) :PRINT#1 ,SPC (21 ) :G0SUB5 
40: GOSUB 1700: GOTO 1080 
3290 'mstart 

3300 IF PEEK(«<HFD9A)OS<HC9 THEN 3480 
3310 LINE (384, 193) -STEP (40, 8) ,15,BF,X0R 
3320 LINE (384, 193) -STEP (40, 8) ,13,BF,0R 
3330 LINE (336, 193) -STEP (40, 8) ,15,BF 
3340 PSET(338,194) :PRINT#1 , "MSTOP" 
3350 'MIDI CHANNEL PART 1-8 
3360 POKE &HC810,1 'PARTI MIDICH 2 
3370 POKE 8<HC820,2 'PART2 MIDICH 3 
3380 POKE 8<HC830,3 'PART3 MIDICH 4 
3390 POKE &HC840,4 'PART4 MIDICH 5 
3400 POKE ?<HC850,5 'PARTS MIDICH 6 
3410 POKE &HC860,6 'PART6 MIDICH 7 
3420 POKE 8<HC870,7 'PART7 MIDICH 8 
3430 POKE 8<HC880,8 'PART8 MIDICH 9 
3440 'START 
3450 A=USR8(0) 

3460 A=USR7(0):IF (PEEK (8<HAE05) AND 1 ) =0 T 
HEN 3480 

3470 IF PEEK(&HFD9A)O?<HC9THEN3460 
3480 GOSUB3540 
3490 GOTO 1080 
3500 'mstop 

3510 IF PEEK(&HFD9A)=8<HC9 THEN3530 
3520 GOSUB3540 
3530 GOTO 3490 
3540 'MSTOP 

3550 LINE (336, 193) -STEP (40, 8) ,15,BF 
3560 PSET ( 338 ,194) : PR I NT# 1 , " MSTOP " 
3570 LINE (336, 193) -STEP (40, 8) ,15,BF,X0R 
3580 LINE (336, 193) -STEP (40, 8) ,13,BF,OR 
3590 LINE(384,193)-STEP(40,8) ,15,BF 
3600 PSET ( 386 ,194) : PR I NT# 1 , " START " 
3610 POKE 8<HFD9A„S<HC9:A=USR9(0) :RETURN 
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SHORT PROGRAM ISLAND 



short PROGRAM 



^3-S-7D^5A-7-<5>K 




GO DOWNLUKD 



5 T=RND(-TIME) 

10 SCREEN 1,2:WIDTH32:COLOR15,0,0:KEYOFF 

20 CALL TURBO ON 

21 FOR I = ASC ( " " ) *8T0ASC ( " Z " ) *8+7 : VPOKE I , 
VPEEK ( I ) ORVPEEK ( I ) ¥2 :NEXTI 
30 FORI=0TO20 
33 C*="" 
40 FORL=0TO31 

50 .READA*:B*=CHR*(VAL(."&h"+A*) > :C*=C*+B* 
:SPRITE*(I)=C* 

60 NEXTL:NEXTI 

61 SOUND0, 200: SOUND 6 ,5 :S0UND8 ,0 : SOUND 1 1 
, 1 IB :S0UND12 ,21 : SOUND 13 ,8 

62 CALL TURBO OFF 

63 READCH* : I FCH*= " ¥ " THEN70 

64 AD=BASE ( 7 ) +ASC ( CH* ) *8 : FOR I = ADTOAD+7 : R 
EADWK*:VPOKEI ,VAL < "8<H"+WK*) :NEXTI :G0T063 
70 RUN"gd2.bas" 

100 DATA 00, 00, 06, 04, 0F,2E, 28, 30, 30, 38, 3 
C,1C,18,0E,00,00,00,00,C0,44,EC,6C,1C,1C 
, 1C , 1C ,38 ,58 ,30 ,E0 ,00 ,00 

105 DATA 00,00,06,0C,2F,2E,28,30,30,38,3 
C,15,18,0E,00,00,00,00,60,30,F4,74,14,0C 
,0C,1C,3C,A8,18,70,00,00 

110 DATA 00,00,03,22,37,36,38,38,38,38,1 
C , 1A ,0C ,07 ,00 ,00 ,00 ,00 ,60 ,20 ,F0 ,74 ,14 ,0C 
,0C , 1C ,3C ,38 , 18 ,70 ,00 ,00 

115 DATA 00,00,00,00,00,00,01,03,03,01,0 
,00 ,00 ,00 ,00 ,00 ,00 ,00 ,00 , 00 , 00 , 00 ,80 ,C0 
,C0 ,80 ,00 ,00 ,00 ,00 ,00 ,00 

120 DATA 00,01,03,07,05,05,05,05,05,06,0 
3 ,03 ,03 ,03 ,02 ,03 ,00 ,80 ,C0 ,E0 ,E0 ,E0 ,E0 ,E0 
,E0 ,E0 ,C0 ,C0 ,C0 ,C0 ,40 ,C0 

125 DATA 00,01 ,03,07, 0F,0B,0B,0B,0C, 06,0 
3 ,03 ,02 ,03 ,00 ,00 ,00 ,80 ,C0 ,E0 ,F0 ,F0 ,F0 ,F0 
,F0 ,E0 ,C0 ,C0 ,40 ,C0,00 ,00 

130 DATA 00,00,03,0F,1F,3F,2F,37,19,0F,0 
3 ,02 ,03 ,00 ,00 ,00 ,00 ,00 ,C0 ,F0 ,F8 ,FC ,FC ,FC 
,F8 ,F0 ,C0 ,40 ,C0 ,00 ,00 ,00 

135 DATA 00,40,20,10,0B,06,0C,0F,0B,0C,0 
7,0B,10,20,40,00,00,02,04,08,D0,E0,B0,D0 
,D0 ,F0 ,A0 ,B0 ,80 ,40 ,20 ,00 

140 DATA 00,40,26,1F,39,3E,1F,0E,0C,1C,3 
7 ,37 , 19 ,27 ,40 ,00 ,00 ,02 ,04 ,80 ,CC ,FE ,76 ,3C 
,30,10,18,F8,FC,3C,1A,00 
145 DATA 00,04,18,20,26,08,00,00,14,12,2 

,20 , 10 ,0C ,00 ,00 ,00 ,00 ,60 , 10 ,08 ,44 ,04 ,00 

,00 ,08 ,08 ,90 ,62 ,04 ,00 ,00 

150 DATA 00, 00, E0, 10, 09, E3, 17, 06, 06, 17, E 
3 ,09 , 10 ,E0 ,00 ,00 ,00 ,00 ,00 ,00 ,E0 ,F0 ,38 ,98 
,D8 ,38 ,F0 ,E0 ,00 ,00 ,00 ,00 
155 DATA 00,00,00,00,03,07,0E,0D,0D,0E,0 

7 ,03 ,00 ,00 ,00 ,00 ,00 ,00 ,00 ,00 ,C0 ,E0 ,70 ,30 
,B0 ,70 ,E0 ,C0 ,00 ,00 ,00 ,00 

160 DATA 00,00,00,00,07,0F,1C,1A,1B,1C,0 

F ,07 ,00 ,00 ,00 ,00 ,00 ,00 ,07 ,08 ,90 ,C7 , E8 , 60 

,60,E8,C7,90,08,07,00,00 

165 DATA 00, 00, 00, 00, 00, 03, 07, 05, 04, IB, 7 
C ,30 ,40 ,60 ,20 ,00 ,00 ,00 ,00 ,00 ,00 ,C0 ,E0 ,E0 
,E0 ,D8 ,3E ,0C ,02 ,06 ,04 ,00 

170 DATA 00,00,00,00,40,43,37,75,34,43,4 
,00 ,00 ,00 ,00 ,00 ,00 ,00 ,00 ,00 ,02 ,C2 ,EC ,EE 
,EC ,C2 ,02 ,00 ,00 ,00 ,00 ,00 

175 DATA 20, 60, 40, 30, 7C, IB, 04, 05, 07, 03,0 
,00 ,00 ,00 ,00 ,00 ,04 ,06 ,02 ,0C ,0E , D8 ,E0 ,E0 




5 CLEAR 500,S<HF380 
10 DEFINT D,M,S,T:CLS 

15 VPOKE BASE(6)+16,&H80 

16 VPOKE BASE(6)+17,«<HF5 
50 CLS :LOCATE0 ,21 : PR I NT." , 



: FOR I =0TO 1 9 : PR I NT : LOCAT 



E0,21 :PRINT" I 

I " :NEXTI :LOCATE0,21 :PRINT" 



51 L0CATE7,3:PRINT"»«« GO TO DOWN •••" :L 
0CATE7,15:PRINT"PUSH SPACE KEY" 

52 LOCATE 5 ,6 : PR I NT "THE SHIP OF USO 880: 
" :PUTSPRITE0, (288,44) ,15,1 :PUTSPRITE1 , (2 
08,44) ,8,3 

53 LOCATE 5 ,8 :PRINT"ENEMYS : " :PUTSPRITE3 
, < 112,60) ,15,4:PUTSPRITE4, (136,60) ,8,10: 
PUTSPRITE5, (160,60) ,15,11 :PUTSPRITE6, (18 
4,60) ,3,14 

62 IF STRIG(0)+STRIG(1)=0 THEN 62ELSECLS 
:FORI=0TO8:PUTSPRITEI , (0,0) ,0:NEXTI 
90 SH=3 : SC=0 : ME= 1 : DO=0 : MA=0 : MB= 1 : MC=0 : MD 
=1 :MF=0 

100 CALL TURBO ON (SC ,SH ,DO ,MA ,MB ,MC ,MD , 
ME,MF) 

105 DIM SX(2) ,SY(2) ,SI (2) ,SZ (2) ,SQ<2) 
110 DIM TX(5) ,TY<5) ,TS(5) ,TZ (5) ,TQ(5) ,CO 
(1) 

112 CO(0)=15:CO<1)=5 

115 A*="i,"+STRING* (25, "•")+"„" :B*=STRING 
*<27," ") 

130 X=100:Y=30:ZX=0:ZY=0:SI(0)=0:SI < 1 ) =0 
:DQ=0 :FORI=0TO3 :TS ( I ) =4 :NEXTI :SO=0 
150 LOCATE7,10:PRINT"START" :FORI=0TO2000 
:NEXTI :LOCATE7,10:PRINT" " :LOCATE0,0 

:PRINT"POINT . " ;SC ; " STAGE . " ;ME ; "SHIP . " ; 
SH 

160 X = X + ZX+(X>200)-(X<0) :Y=Y+ZY+(Y>170>- 
(Y<16) :S=STICK(0)+STICK<1) :ZX=ZX+( <S=6)+ 
(S=7)+(S=8) )*3-( (S=2)+(S=3)+(S=4) )*3:ZX= 
ZX+(X<0)*ZX+(X>200)*ZX:ZX=ZX+(ZX>8)*3-(Z 
X<-8)*3+(ZX>0ANDS=0)-(ZX<0ANDS=0) 

161 ZX=ZX+(ZX>0ANDS=1)+(ZX>0ANDS=5)-(ZX< 
0ANDS=1 ) - (ZX<0ANDS=5) 

170 ZY=ZY+( (S=8)+(S=1)+(S=2) ) *3- ( <S=4)+( 
S=5)+(S=6) )*3:ZY=ZY+(Y<16)*ZY+(Y>170)*ZY 
:ZY=ZY+(ZY>8)*3-(ZY<-8>*3+(ZY>8ANDS=0)-< 
ZY<0ANDS=0) 

171 ZY=ZY+(ZY>0ANDS=3)+(ZY>0ANDS=7)-(ZY< 
0ANDS=3)-(ZY<0ANDS=7) 

172 ZX=ZX+(ZX>0ANDS=1)+(ZX>0ANDS=5)-(ZX< 
0ANDS=1 ) - <ZX<0ANDS=5) 

175 PUTSPRITE0, (X,Y) , 15 , 1+ <ZX<-2) - (ZX>2) 
:PUTSPRITE1 , <X,Y) ,8,3 



,E0 ,C0 ,00 ,00 ,00 ,00 ,00 ,00 

180 DATA 07,07,05,07,04,03,07,07,07,03,0 

4 ,07 ,05 ,07 ,07 ,00 ,C0 ,C0 ,40 ,C0 ,40 ,80 ,C0 ,C0 
,C0,80,40,C0,40,C0,C0,00 

185 DATA 10, 38, 7C,F6,7C, 38,87,07,07,03,0 

, 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 00 , 80 , C0 , C0 

,D0 ,B8 ,6C ,DE ,7C ,38 , 10 ,00 

190 DATA 00,00,00,00,00,FD,D7,F7,D7,FD,0 

,00 ,00 ,00 ,00 ,00 ,00 ,00 ,00 , 00 , 00 , BE ,D6 ,DE 
,D6 ,BE ,00 ,00 ,00 ,00 ,00 ,00 

195 DATA 00,00,08,00.00,03,07,07,17,36,6 
C ,F6 ,7E ,3C , 10 ,00 , 10 ,38 ,7C ,DE ,6C ,B8 ,D0 ,C0 

,C0 ,80 ,00 ,00 ,00 ,00 ,00 ,00 

280 DATA 00, 19, ID, ID, 0D, 05, 02, 07, 07, 05,0 

5 ,05 ,04 ,03 ,00 ,00 ,08 ,30 ,70 ,70 ,60 ,48 ,80 ,C0 
,C0 ,C0 ,C0 ,C0 ,C0 ,80 ,00 ,00 

205 DATA •,3C,7F,FF,FF,BF,BF,5E,3C 
210 DATA i,, FF, 01 ,81 ,01 ,81 ,01 ,81,55,¥ 
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181 PUTSPRITE9, (216,16+D0> ,15,3 

185 S0=S0+1 :ONINT(SO¥8)+1GOTO190,186 

186 SOUND8,0:SO=0 

1 9iZi S=STR I G ( © ) +STR 1 6 < 1 ) : I FS=- 1 ANDSS=0THE 

N200 

195 SS=S:GOTO220 

200 SS=S : FOR I =0TO2 : 1 FS I < I ) = 1 THENNEXT I : GO 
TO220 

201 ON MC+1 GOTO 205,206 

205 SI <I)=1 :SX(I)=X:SY(I)=Y:SZ <I)=ZY:SQ< 
I ) = (ZX¥2) *MB*MD : 1=2 :NEXTI :GOTO220 

206 SI(I)=1 :SX(I)=X:SY<I)=Y:SZ(I)=ZY:SQ( 
I ) =ZX/2+ (1=0) *2- (1=2) *2 : NEXTI :GOTO220 
210 NEXTI :GOTO220 

220 FORI=0TO2 

225 SX ( I ) =SX ( I ) +SQ ( I ) :SY ( I ) =SY < I ) +SZ ( I ) : 

SZ(I)=SZ(I)+1:SZ(I)=SZ(I)+(SZ(I)>8) 

227 SY(I)=SY(I)+(SI(I)=0)»SY(I) 

228 SO ( I ) =SQ ( I ) + (SX < I ) <0ORSX ( I ) >200) *SQ < 
I)*2 

230 SI (I)=SI (I)+(SY(I) >180ORSY(I)<0) 

235 PUTSPRITEI+2, (SX(I) ,SY(I) ) ,CO(MA)+(S 

I (I)=0)*CO(MA) ,3-<MF=l)*17:NEXTI 

250 DQ=DO+ 1 : ONDQ¥ 1 2+ 1 G0T03 1 , 260 

260 DQ=0:DO=DO+1 ."0NMEG0T0265 ,265 ,267 ,269 

,270 

265 QQ= I NT ( RND ( 1 ) *4 ) +4- < 4-D0M0D8 ) ¥2 : C*=A 

* :MID* (C* ,OQ ,22-D0M0D8+ (D0M0D48<5) *16) =B 

*:GOTO300 

267 C*='V+STRING*(25," ">+■'„": ONI- (DOMO 
D20>15) GOTO300 ,268 

268 C*=A*:MID$(C*,1 ,7) = (STRING* (6 , " () " > +" 
") :MID*(C*,21 ,7) = (" "+STRING* (6 , "„" ) ) :G 

OTO300 

269 C*=A*rMID*(C*,INT<RND(l)*10)+2, (DOMO 
D8 ) ¥2+ 1 3 ) =B* : GOTO300 

270 QQ= I NT ( RND < 1 ) *4 ) +4- ( 4-D0M0D8 ) ¥2 : C*=S 
TR I NG* ( 27 , " i, " ) : M I D* ( C* , QQ , 22-D0M0D8+ ( DOM 
OD24<5)*16)=B*:GOTO300 

300 LOCATE0 ,2 :PRINTCHR* (27) +"M" :LOCATE0 , 

22: PR INTO* 

310 FORI=0TO2 

315 BX=(SX(I)+8)¥8:BY=(SY(I)+8)¥8 

320 BB=VPEEK(6144+BY*32+BX> 

325 IFCHR*(BB)="«"THENSI ( I ) =MA- (ME=5ANDM 
A=0 ) : S0UND7 , ?<B 1 000 1110: S0UND8 ,16: SOUND 1 3 

,9:S0=7:VP0KE(6144+BY*32+BX) ,S<HA0 : IFMF=1 
THEN328 

326 I FCHR* ( BB ) = " ( , " THENS I ( I ) =0 

327 GOTO330 

328 BX=BX-(BX<2) + (BX>24) :BY=BY+ (BY >18) :F 
0RL=-1T01 :LOCATEBX-l ,BY+L:PRINT" " ; :PU 
TSPRITEI+2, (SX (I) ,SY (I) ) ,8 ,7 :S0UND7 ,S<B10 
110001 :NEXTL 

330 NEXTI 

340 BX=(X+8)¥8:BY=(Y+8)¥8 

345 BB=VPEEK(6144+BY*32+BX) 

350 I FCHR* ( BB ) = " •" ORCHR* ( BB ) = " „ " THENGOTO 

1000 

355 ONSGN(DO¥138)+1GOTO360,1100 

360 FOR I =0TO3 : ON SGN ( TS ( I ) ) + 1 GOTO 365 , 38 



365 0NME60T0366 , 370 , 374 , 378 , 378 

366 0NINT(RND(1)*3+(D0<4B)*2)+1G0T0 367, 
368,369 

367 TS(I)=1 :TX(I)=INT(RND(1)*170)+20:TY< 
I)=180:TZ(I)=8:GOTO380 

368 TS ( I ) =3 :TX ( I ) =8*QQ-8 :TY ( I ) =172 :TZ ( I ) 
=INT (RND ( 1 ) *4) +3 :TQ ( I ) =0 : IFTX ( I ) =TX ( INT ( 
RND ( 1 ) *4) ) THEN367ELSEGOTO380 

369 TS < I ) =3 :TX < I ) =8* (QQ+22-D0M0D8) -24 :TY 
(I)=172:TZ(I)=-INT(RND(1)*4)-3:TQ(I)=0:I 

FTX ( I ) =TX ( INT (RND ( 1 ) *4> ) 0RD0M0D48OTHEN3 
67ELSEGOTO380 

370 IFD0<48THEN0NINT (RND ( 1 ) *3) +1G0T0367 , 
368,369 

371 0NINT(RND(1)*2)+1G0T0367,372 



372 BX=INT (RND ( 1 ) *23) +2 :BY=INT (RND ( 1 ) *10 
) +10 :BB=VPEEK <6144+BY*32+BX) : I FCHR* (BB) = 
" •" THEN373ELSE367 

373 TX ( I ) =BX*8-4 :TY ( I ) =BY*8-4 :TS ( I ) =5 :TZ 
(I) = (X<TX(I) )-(X>TX(I) ) :TQ(I) = (Y<TY(I) )- 
(Y>TY (I) ) :GOTO380 

374 ON I NT ( RND ( 1 ) * ( 4- ( DOMOD20 > 1 0ANDDOMOD2 
0<15)) )+lG0T0377,377,377,377,375 

375 TS ( I ) =3 :TX ( I ) =8+INT (RND ( 1 ) *2) *184 : IF 
TX ( I ) =TX (INT (RND ( 1 ) *3) ) THEN377ELSETY ( I ) = 
172:TZ(I)=INT(RND(l)*4)+3+(TX(I)=192>*9: 
TQ(I)=0:GOTO380 

376 TS ( I ) =6 :TX ( I ) =INT (RND ( 1 ) *180> +5 :TY ( I 
)=180:TZ(I) = (TX(I)>X)-(TX(IXX) :TO(I)=-I 
NT (RND ( 1 ) *3) -9 :GOTO380 

377 BX=INT(RND(1)*13)+7:BY=INT(RND(1)*5) 
+18-(DOMOD20) :BB=VPEEK(6144+BY*32+BX) :IF 
CHR*(BB>="«"THENVP0KE(6144+BY*32+BX) ,ASC 

( " " ) :TX < I ) =BX*8-4 :TY ( I ) =BY*8-4 :TQ ( I ) =0 : 
TS ( I ) =7 :GOTO380ELSE376 

378 ONINT (RND ( 1 ) *3) +1- (ME=5) *5- (D0>48) *2 
G0T0367 ,367 ,379 ,379 ,376 ,367 ,379 ,379 ,379 , 
376 

379 TS(I)=8-(ME=5) :TX ( I > =INT (RND ( 1 ) *24) * 
8+4:TQ(I)=Y+16:TY(I)=178:TZ(I) = (X<TX(D) 
-<X>TX(I) ) :GOTO380 

380 ON TS(I)G0T0381,382,383,386,387,388, 
389,390,390 

381 TY(I)=TY(I)-TZ(I) :TZ ( I ) =TZ ( I ) -1 :TZ ( I 
)=TZ(I)-(TZ(IX-4)*14:PUTSPRITE5+I,(TX<I 
) ,TY(D) ,15,4-(TZ(IX4)-(TZ(I)<2) :TS(I) = 
TS(I) + (TY(IX8)*TS<I) :GOTO400 

382 PUTSPRITE5+I,(TX(I) ,TY ( I ) ) ,8 ,TZ ( I ) :T 
Z(I)=TZ(I)+1 :TS(I)=TS(I)+(TZ(I)=10)*TS(I 
) :GOTO440 

383 TY ( I ) =TY ( I ) + (DQ=0) *8 : IFTQ ( I ) =0THEN38 
4ELSE385 

384 ZA=7+INT (RND ( 1 ) *3) *2 :TQ < I ) =TQ ( I ) + (DO 
MOD15=0)*ZA:PUTSPRITEI+5,(TX(I) ,TY(D) ,6 

,10-(TX(I) >100)*2:GOTO400 

385 TX(I)=TZ(I)+TX(I) :ZA=TX(I) :TY(I)=TY< 
I ) +TQ < I ) :TQ < I ) =TQ ( I ) +2 :TS ( I ) =TS ( I ) + (TY ( I 
)>180)*TS(I) :PUTSPRITEI+5,(ZA,TY(I)> ,6,1 
1 :GOTO400 

386 TX(I)=255:TY(I)=0:PUTSPRITEI+5, (0,0) 
,0 ,0 :TS ( I ) =TS ( I ) + (INT (RND ( 1 ) *200> <4) *4 :G 
OTO440 

387 TX ( I ) =TX ( I ) +TZ ( I ) *4 : TY ( I > =TY ( I ) +TQ ( I 
) *4+ (DQ=0) *8 :BX=INT (TX ( I ) +8) ¥8 :BY=INT (TY 
( I ) +8) ¥8 : VPOKE (6144+BY*32+BX ) ,&H85 :TS ( I ) 

=TS ( I ) + (TX ( I ) <80RTX ( I ) >190ORTY ( I X10ORTY 
(I)>170)*TS(I) :PUTSPRITEI+5,(TX(I) ,TY(I) 
) ,15,11 :GOTO400 

388 TX ( I ) =TX ( I ) +TZ ( I ) :TY ( I ) =TY ( I ) +TQ ( I ) : 
TQ ( I ) =TQ ( I ) - (DQMOD2=0) :TS ( I ) =TS ( I ) + (TY ( I 
)>180)*TS(I) :PUTSPRITEI+5,(TX(I) ,TY(D) , 
3 , 1 4+SGN ( TQ ( I ) ) : GOTO400 

389 TY ( I ) =TY ( I ) -TQ ( I ) :TQ ( I ) =TQ ( I ) +1 :TS ( I 
) =TS ( I ) + (TY ( I X8) *TS ( I ) :PUTSPRITEI+5 , (TX 
(I) ,TY(I) ) ,10,11 :GOTO400 

390 IFTY ( I ) >TQ ( I ) THENTY ( I ) =TY ( I ) -4+ (ME=5 
) *4 :TS ( I ) =TS ( I ) + (TY ( I X 18) *TS ( I ) :0NME-3 
G0T0392,393 

391 TY ( I ) =TY ( I ) + (DQ=0) *8 :TX ( I ) =TX ( I ) +TZ ( 
I ) *4 :TS ( I ) =TS ( I ) + (TX < I ) <80RTX ( I ) M840RTY 
(IX18)*TS(I) :ON ME-3 GOTO 392,393 

392 PUTSPRITEI+5, (TX(I) ,TY(I>) ,15,11 :BX = 
INT(TX(I)+8)¥8:BY=INT(TY(I)+8)¥8:VP0KE(6 
144+BY*32+BX) ,S<H85 :GOTO400 

393 PUTSPRITEI+5, (TX (I) ,TY(D) ,15,16+(DQ 
M0D4) :BX=INT(TX(I)+8)¥B:BY=INT(TY(I)+8)¥ 
8:VP0KE(6144+BY*32+BX) ,ASC(" ") :GOTO400 
395 PUTSPRITEI+5, (TX (I) ,TY(D) ,15,16+(DQ 
M0D4) :BX=INT(TX(I)+8)¥8:BY = INT(TY(I)+8)¥ 
8 : VPOKE (6144+BY*32+BX ) ,ASC ( " " ) :GOTO400 
400 LL= (ABS (TX ( I ) -X) +ABS (TY ( I ) -Y) ) ¥2 : IFL 
L<8THENI=3:NEXTI :GOTO1000 
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SHORT PROGRAM ISLAND 



4113 FORL=0TO2 

420 LL= (ABS <TX < I ) -SX (L) ) +ABS (TY ( I ) -SY (L) 

) )¥2:IFLL<8ANDSI <L)=1THEN TS ( I ) =2 :S0UND7 

,?<B101 10001 :SOUND8,16:SDUND13,8:SO=0:TZ( 

I ) =7 : S I ( L ) =0+M A : BC=SC+ 1 : L0CATE6 , : PR I NTS 

C 

430 NEXTL 

440 NEXTI :GOTO160 

1 000 S0UND7 , &B 1 1 1 000 1 : FOR I = 1 TO40 : SOUND 

B,15-I¥10:PUTSPRITE0,<X,Y) ,8 ,7+IM0D3 -.PUT 

SPRITE1 , (X-16+RND < 1 ) *32 , Y-16+RND ( 1 ) *32) , 

8 ,7+IM0D3 :FORL=1TO100 :NEXTL :NEXTI :S0UND8 

,16:FORI=0TO3:TY(I)=180:TS(I)=0:NEXTI 

1 052 MA=0 : MB= 1 : MC=0 : MD= 1 : MF=0 

1055 SH=SH-1 : IFSH=0THEN1 100ELSECLS :60T01 

30 

1100 CALL TURBO OFF 

1103 SOUND8,0 

1105 FORI=0TO9:PUTSPRITEI,<0,0) ,0,0:NEXT 

I 

1110 IFSH>0THEN1120ELSE1300 

1 120 FORI=0TO22 :LOCATE0 ,2 :PRINTCHR* (27) + 

"M" :NEXTI 

1130 ME=ME+1 :0NME-1G0T01 140, 1150, 1160, 11 

70,1350 

1 1 40 VPOKEBASE ( 6 ) + 1 6 , S<H40 : GOTO 1 1 90 

1 1 50 VPOKEBASE ( 6 ) + 1 6 , &HA0 : GOTO 1 1 90 

1 1 60 VPOKEBASE < 6 ) + 1 6 , &H30 : GOTO 1 1 90 

1170 VPOKEBASE < 6 ) + 1 6 , &H80 : GOTO 1190 

1190 L0CATE7,5:PRINT"CLEAR! ! " :FORI=1TO10 

00:NEXTI :DO=0 

1200 L0CATE7,5:PRINT" 

1 205 RESTORE 1 206 : FOR I = 1 T06 : READA* < I > , A ( I 
) :NEXTI 

1 206 DAT ALASER , 50 , STRA I GHT , 25 , BOMB ,70,3- 
WAYS ,50 ,R -L-UNIT , 15 ,SHIP , 100 



0SE 



U 
7. 



1210 LOCATE0 , 2 : PR I NT " SHPP I NG CONER ! ! " 

1220 F0RI=1T06 

1221 PRINTUSING"#:8< ?< *###"; I, 
A*(I) ,A(I) 

1223 NEXTI 

1250 PRINT"0: GO TO NEXT STAGE !!" 

1260 K*=INKEY* : IFK*="0"THENCLS : GOTO 100 

1270 K=VAL(K*) :IFK=0THEN1260 

1271 IFSC<A(K)THEN1260ELSESC=SC-A(K> :LOC 
ATE6 , : PR I NTSC : LOCATE0 , 1 5 : PR I NT " GET " ; A* 
(K) :FORI = 1TO300:NEXTI :LOCATE0 , 15 :PRINTST 
RING* < 15," ") 

1280 ONKGOTO 1290, 1291 ,1292,1293,1294,129 

1290 MA=1 :MF=0:GOTO1260 

1 29 1 MB=0 : MC=0 : GOTO 1 260 

1292 MA=0:MF=1 : GOTO 1260 

1293 MC=1 : GOTO 1260 

1294 MD=-1 : GOTO 1260 

1295 SH=SH+1 :LOCATE27,0:PRINTSH:GOTO1260 
1300 LOCATES, 10:PRINT" GAME OVER" -.GOTO 139 



1350 F0RI = 1T015:C0L0R I , I , I :FORL=0TO50 :N 

EXTL,I:COLOR 15,0,0 

1360 LOCATE0,20:PRINT"C ONGRATUL 

A T I N ! ! " :FORI=0TO15:LOCATE0,2:PRINT 

CHR*(27)+"M" :NEXTI 
1365 LOCATE©, 8 :A*=" You clear the SO DOW 
N . You are a HERO ! " 
1 370 S0UND7 , &B 1 1 1 000 1 : A= 1 

1 375 B*=M I D* < A* , A , 1 > : PR I NTB* ; : I FB*= " " TH 
EN 1380 

1377 PLAY"V15O4T200C64" 

1380 FORI=1TO100:NEXTI :IFB*=" ! "THEN1390E 
LSEA=A+1 :G0T01375 

1390 S0UND8 ,0 : IFSTRIG (0) +STRIG ( 1 ) =0THEN1 
390ELSERUN 




100 ' V«i»9Vi? V'yMVMi'Jb"'} 
110 CLEAR 256, &HD000: SCREEN 1,0,0: WIDTH 
32:KEY OFF :A=RND (-TIME/3) 

120 FOR I=&HD000 TO &HD2F4:READ A*:A=VAL 
<"S<H"+A*) :S=S+A:POKE I,A:NEXT 
130 IF S089998! THEN PRINT "Data error" 
:END 

140 FOR 1=0 TO 7: READ A*, B*: VPOKE &H3800 
+ 1 , VAL < " &H " +A* ) : VPOKE &H400+ 1 , VAL ( " ?<H " +B 
*) : VPOKE 8<H2018+I ,&HA0+(K4)*?<H10:NEXT:V 
POKE &H2010,&HA4 

1 50 DEFUSR0=8<HD000 : DEFUSR 1 =&HD062 : DEFUSR 
2=8<HD06E :DEFUSR3=8<HD081 :DEFUSR4=?«HD0AE :D 
EFUSR5=?«HD209 : DEF I NT A-Z 
1 60 U=USR0 ( ) : U=USR3 < ) 
170 ' W/V 
180 U=USR1 (0) 

190 LOCATE 0,1:PRINT STRING* (32 ,"#" ) 
200 FOR 1=1 TO 22:L0CATE 31,I:PRINT "»•" 
; :NEXT 

210 LOCATE 0,23:PRINT STRING* (31 ,"#"); :V 
POKE &H1AFF,?<H80 
220 FOR 1=1 TO 160 

230 B=RND ( 1 ) *30 : C=RND ( 1 ) *2 1 : A=S<H 1 84 1 +C*3 
2+B:IF VPEEK(A) >&HEF THEN 230 
240 VPOKE A,?<HF0:NEXT:U=USR2(0) 
250 LOCATE 19,0:PRINT "TIME 60.00" 
260 PUT SPRITE , (B#8+8 ,C*8+16) ,6 
270 PLAY"T160M512S13L8O4AGE616AAG16EG" :P 
LAY"E.E1" ,"T160S13O3A#8R16A#1" ,"T160S13O 
4D8R16D1 

280 IF PLAY(0) THEN 280 ELSE TIME=0 
290 ' .*■<-> 

300 U=USR3(0) :U=USR4(0) : LOCATE 24,0: IF T 
IME<3600 THEN PRINT USING "##.##" ;60-TIM 
E/60:6OTO 300 
310 PRINT " 0.00" :U=USR5(0) 



320 S=PEEK(?<HD2F4) :IF S>H THEN H=S 

330 PUT SPRITE , (0 ,208) :LOCATE 12,10:PR 

INT "SCORE" ;S:LOCATE 12,13 :PRINT "TOP " 

:H 

340 PLAY " 05D204G#4E4D 1 " , " 04A#2R203A 1 " , " 

4E2R203F#1 

350 IF PLAY(0) THEN 350 

360 IF STRIG(0) THEN 180 ELSE 360 

370 ' 7£03" 

380 DATA 11 ,00,D4,21 ,52,D0,0E,00,7A,E6,0 

3,87,87,85,6F,7B 

390 DATA E6,03,CB,53,20,17,85,6F,AF,CB,5 

B,28,05,7E,2F,E6 

400 DATA F0,4F,CB,63,28,1F,7E,2F,E6,0F,B 

1 ,18,18,2F,C6,04 

410 DATA B5,6F,AF,CB,6B,28,05,7E,2F,E6,F 

0,4F,CB,73,28,05 

420 DATA 7E,2F,E6,0F,B1 ,CB,7B, 28,01 ,B6,1 

2,13,7A,FE,D8,20 

430 DATA B2,C9,00,3C,7E,7E,18,7E,7E,FF,3 

C,7E,FF,FF,7E,FF 

440 DATA FF, FF, 21 ,00,18,01 ,00,03, 3E,E0,C 

D,56,00,C9,21 ,40 

450 DATA 18,D9,01 ,A0,02,D9,CD,53,D1 ,23,D 

9,0B,78,B1 ,20,F5 

460 DATA C9, 11 ,00,07,21 ,9D,D0, 34, 7E,E6,0 

F,21 ,9E,D0,85,6F 

470 DATA 7E,C6,D4,67,2E,00,01 ,00,01 ,CD,5 

C,00,C9,00,02,01 

480 DATA 00 ,00 ,00 ,01 ,02 ,03 ,02 ,03 ,02 ,02 ,0 

2,02,02,02,21 ,00 

490 DATA 1B,CD,4A,00,57,2C,CD,4A,00,5F,C 

D,1F,D1 ,E5,3E,08 

500 DATA CD, 41 ,01 ,21 , IE, Dl , BE, 28, IF, 77,8 

7,38,06,7B,C6,08 

510 DATA 5F,18,1B,87,38,06,7A,C6,08,57,1 

8, 12, 87, 38, 06, 7A 
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520 DATA D6, 08, 57, IB 
B,D6,08,5F,CD,1F 
530 DATA Dl ,D5,D9,D1 
8,EC,FE,F0,30,0F 
540 DATA CD,A1 ,D1 ,CD 
D,30,D1 ,18,01 ,E1 
550 DATA 09,21,00, IB 
D,4D,00,C9,00,26 
560 DATA 06,7A,E6,F8 
F,0F,0F,B5,6F,C9 
570 DATA 23, CD, 53, Dl 
B,CD,53,D1 ,2B,CD 
580 DATA 53, Dl ,19, CD 
3,CD,53,D1 ,23, CD 
590 DATA 53, Dl ,C9,CD 
E,E0,D8,01 ,E0,E0 
600 DATA 11,20,00,A7 
0,38,04,CB,C0,CB 
610 DATA C8, 19, 23, CD 
B,C9,CB,D9,19,2B 
620 DATA CD,4A,00,FE 
0,A7,ED,52,2B,CD 
630 DATA 4A,00,FE,F0 
3,78,A1 ,CD,4D,00 
640 DATA C9,0E,F0,11 
D,4A,00,FE,F0,38 
650 DATA 02,CB,C1,23 
4,CB,C1 ,CB,C9,23 
660 DATA CD,4A,00,FE 
D,4A,00,FE,F0,38 
670 DATA 04 , CB , C9 , CB 
0,38,02,CB,D9,2B 
680 DA I- A UU,4H,00,I-E 
1 ,2B,CD,4A,00,FE 
690 DATA F0,38,02,CB 



,09, 87, 30, 02, El ,C9,7 
,D9,CD,4A,00,FE,E0,3 
,30,D1 ,E1 ,CD,5D,D1 ,C 
,7A,CD,4D,00,2C,7B,C 
,6F ,29 ,29 ,7B ,E6 ,F8 ,0 
,A7,ED,52,CD,53,D1 ,2 
,53,D1 ,19, CD, 53, Dl ,2 
,4A,00,FE,F0,30,47,F 
,ED ,52 ,CD ,4A ,00 ,FE ,F 
,4A ,00 ,FE ,F0 ,38 ,04 ,C 
,F0,38,04,CB,D8,CB,D 
,38,04,CB,D1 ,CB,C1 ,2 
,20 ,00 ,A7 ,ED ,52 ,2B ,C 
,CD,4A,00,FE,F0,38,0 
,F0,38,02,CB,C9,19,C 
,D9,19,CD,4A,00,FE,F 
,^0,38,04^8,09^8,0 
,D1 ,A7,ED,52,CD,4A,0 
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10 DEFINTA-Z:LV=1 :S0UND6 ,0 :KEY0FF 
20 SCREEN1 ,2:WIDTH13:COLOR15,5,0:BIMKP(1 
3 ) : LOCATE , , : DEFUSR-&H 1 56 : DEFUSR 1 =?<H90 
30 FORP=0TO3:S*="" :P*="" :FORI=0TO15 :READ 
1 : GOSUB220 : S*=S*+CHR* (10): P*=P*+CHR* ( 1 1 
) :NEXT:SPRITE*(P)=S*+P*:NEXT 
40 FORI=0TO13:READKP(I) :NEXT 
50 DATA6, 6, 4, 0,0, 0,5, 7, 7, 4, 0,6, 6, 6, 6, 6,0 
,0,3,7,7,7,2,0,0,3,7,1 ,0,0,0,0 
60 DATA0, 0,0, 0,16, 32, 16, 13, 15, 7, 4, 8, 46,1 
2, 6, 8, 0,0, 0,3, 7, 7, 7, 2, 0,0, 3, 7,1, 0,0,0 
70 DATA 6,12,18,24,28,32,34,32,28,24,18, 
12,6,0 

80 FOR I =0TO7 : VP0KE264+ 1 , 1 24+ < I MOD7=0 > *68 
:NEXT :VPOKE8<H2004 ,245 

90 PUTSPRITE2, (120,151) ,4 ,0 :PUTSPRITE3 , ( 
120,151) ,4,1 

100 FOR I =0TO7 : VP0KE5 12+1, -255* ( I >2 ) : VPOK 
E520+I ,255 :NEXT :VPOKE8<H2008 , 134 
1 10 CLS : Y Y=150 :SP=0 :6OSUB230 :L0CATE3 , 10 : 
PRINT" level " ;LV :FORI=0TO2000 :NEXT 
120 ON I NTERVAL=10GOSUB260: INTERVAL ON 
1 30 LOCATE© , : PR I NTCHR* ( 27 ) + " L " : A*=CHR* ( 
32+T ) : I FRND ( 1 ) * 1 >LVTHENB*=SPACE* (10) ELS 

eb*= " ©eeeeeeg©© •• 

140 PRINTA*;B*;A* 

1 50 LOCATE0 , : PR I NTCHR* ( 27 ) + " L " : PR I NT A* ; 

B* ;A* :T=1-T :SP= (SP-1 ) * (F=0) :GOSUB230 

1 60 I FVPEEK ( «<H 1 A50 ) =64ANBF=0THEN I =0 : 1 NTE 

RVALOFF :SP=1 :BOSUB230 :GOSUB290 :GOTO200 

1 70 I FST I CK ( ) = 1 THENGOSUB250 

180 LG=LG+1 :VPOKE&H1AFA-32*<L6¥10> ,65: IF 

LG=230THENELSE 1 30 

1 90 LV=LVM0D6+ 1 : LG=0 : GOTO 1 1 

200 LOCATE 1 , 1 : 1 F I =0THENA*= " g ame o ver " E 

LSEA*=SPACE*(10) 

210 PRINTA*; : 1 = 1-1 :FORP=0TO200 .-NEXT : IFIN 

KEY*=CHR* (13) THENRUNELSE200 

220 A*=R I GHT* ( B I N* ( 256+ I ) , 8 ) : B*= " " : FORP 

0=0TO7 :B*=B*+MID* (A* ,8-P0 , 1 ) :NEXT : I 1=VAL 

<"?<B"+B*> : RETURN 

230 PUTSPR I TE0 , ( 1 20 , Y Y ) , 9 , SP*2 : PUTSPR I TE 
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0,FE,F0,38,04,CB 

700 DATA 01 ,CB, CI ,23,79 

0,06,21 ,9D,D0,CD 

710 DATA 88,00,21 ,00, IB 

D,4A,00,5F,CD,1F 

720 DATA 01 ,CD,4A,00,E6 

1 ,0E, 00,09, 21 ,40 

730 DATA 18,11,20,00,01 

5,FE,F0,30,3E,FE 

740 DATA E0,DA,DD,D2,ED 

0,FE,D0,28,23,19 

750 DATA 23,CD,4A,00,E6 

9,2B,CD,4A,00,E6 

760 DATA F0,FE, 00,28,00 

A,00,E6,F0,FE,D0 

770 DATA 20,6B,E1 ,CD,4A 

0,18,61 ,2B,CD,4A 

780 DATA 00,E6,F0,FE,D0 

D,4A,00,E6,F0,FE 

790 DATA 00, 28, 3C, 23, CD 

0,28, 32, 23, CD, 4A 

800 DATA 00,E6,F0,FE,D0 

0,E6,F0,FE,D0,28 

810 DATA IE, 19, CD, 4A, 00 

4,2B,CD,4A,00,E6 

820 DATA F0,FE,D0,28,0A 

0,FE,D0,20,0E,E1 

830 DATA CD,4A,00,E6,DF 

9,18,01 ,E1 ,23,0B 

840 DATA 78, Bl ,C2,37,D2 

8,32,F4,D2,C9,80 

850 DATA 47,C3,2B,D2,00 

860 ' Character 

870 DATA 00, FF, 18, 81 ,2C 

0, BO, 00, 81 ,00,FF 



,CD,4D,00,C9,11 ,0 
,CD,4A,00,57,2C,C 
,DF, CD, 40, 00, 06,0 
,A0,02,CD,4A,00,E 
,52,CD,4A,00,E6,F 
,F0,FE, 00,28,18,1 
,A7,ED,52,2B,CD,4 
, 00, E6, OF, CD, 40,0 
,28,48,A7,E0,52,C 
,4A,00,E6,F0,FE,D 
,28,28,19,CD,4A,0 
,E6,F0,FE,D0,28,1 
,2B,CO,4A,00,E6,F 
,CD,4D,00,D9,0C,D 
,D9,79,A7,20,05,7 

, BO , 3C , A5 , 1 8 , A5 , 



1 , (120, YY) ,1 ,SP*2+1 :RETURN 

240 PUTSPRITE2, (120,151) ,4 ,0 :PUTSPRITE3 , 

(120,151) ,4,1 :RETURN 

250 IFF=-1THENRETURNELSEF=-1 :GOSUB300:RE 

TURN 

260 IFF=0THENRETURNELSEYY=150-KP(F1) :IFS 

TICK(0)=1ORF1>6THENF1=(F1+1)MOD14ELSEF1= 

13-F1 

270 I FF 1 =0THENF=0 : 1 =USR ( ) : RETURN 

280 GOTO230 

290 I =USR 1(1): S0UND7 , 8 : PLAY " S0M3000O2F8 " 

: RETURN 

300 I=USR1 (I) :S0UND7,1 :PLAY "S0M5000O2D16 

03F2" : RETURN 
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10 'UStfoTU 

20 SCREEN1 ,1 ,0:KEYOFF:WIDTH32 

30 KE YOFF: COLOR 1 5,1 ,1 

40 DEFINTA-Z:A=RND(-TIME) 

50 FOR I =7T038 : READA* : VPOKE I + 1 4336 , VAL ( "& 

h"+A$) :NEXT 

60 FORI=0TO13:READA:SOUNDI ,A:NEXT 

70 LOCATE10,5:PRINT" i 1" 

80 F0RI=6T08 :LOCATE10 , I :PRINT" I " ;SPC (9) ; 
" I " :NEXT 

90 LOCATE10,9:PRINT" ' '" 

100 X=14:SP=1 :TY!=1 :FU=100 :SC=0 :TX=1 
110 L0CATE9,11 :PR INT" SPEED" ; 
120 L0CATE9,13:PRINT"TIME" ; 
130 L0CATE9,15:PRINT"SC0RE" ; 
140 TIME=0 

150 'M'J l\i-*-J 

160 S=STICK(0) :ST=STRIG(0) 

170 X=X+ (S=3) * ( X<28) *2- (S=7) * (X>0) *2 

180 SP=SP+ (ST=-1 ) * (SP<181 ) *3- (ST=0) * (SP> 

5)*4 

190 IFTY ! =0THENTX=RND ( 1 ) *57 :A=RND ( 1 ) *7-3 

200 TY!=TY!+SP/450 

210 PUTSPRITE1 , (TX+88,52) ,8,TY! 

220 PUTSPRITE0, <X*2+8B,54) ,7,4 




a 
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10 DEFINT A-Z:SCREEN5:C0L0R15,4,4:CLS:0P 

EN " GRP : " AS# 1 : R=RND ( -T I ME ) 

20 ON INTERVAL=30 GOSUB640 : INTERVAL ON 

30 SETPAGE,1 -.COLOR 15,2: CLS 

40 FOR 1=0 TO 80 STEP 20 

50 READ A* 

60 FOR J=0 TO 3 

70 PRESET<20*J+9,I+9) 

80 DRAW"C15A=J;S12BH1S24XA$;" 

90 PAINT(20*J+9,I+9) 

100 NEXT J, I 

110 SETPAGE,0 

120 ROUND=l 

130 '===ROUND INIT.=== 

140 COLOR, 4: CLS: FOR 1=0 TO 1 -.LINE ( 16-2*1 

,8-2*1) -(238-2*1 ,24-2*1) ,11+1 ,BF:NEXT 

150 RP=PT:LINE(48,50)-(210,212) ,13,BF:G0 

SUB590 

160 COPY (20, 80)- (38, 98) ,1 TO (30,122) ,0: 

LINE(30,122)-(48,140) ,15,B 

170 RESTORE750:FOR 1=1 TO (RO-1 ) *40+l :RE 

AD A*: NEXT 

180 FOR 1 = 1 TO 20:READ A ,B : X=A*18+48 : Y=B 

* 18+50 

190 LINE <X,Y) -STEP (IB, 18) , 15 ,B :PAINT (X + l 

,Y + 1) ,2,15:NEXT 

200 LX=48:FY=0:Y1=0:PC=0:R=61:IF INKEY*< 

>"" THEN200 

2 1 GOSUB670 : GOSUB650 : PR I NT# 1 , " STR I KE 

ANY KEY" 

220 I*=INPUT*<1> :GOSUB660:FOR 1=0 TO 300 

:NEXT 

230 '===MAIN=== 

240 LY=0 

250 CX=FX:CY=FY:GOSUB610 

260 GOSUB670 

270 X1=LX 

280 ' 

290 X2=LX:C=0 

300 COPY(LX ,LY)-STEP<18,18) ,0 TO (0,100) 

,1 

310 V=(P0INT(LX+2,LY+2)=13) 

320 COPY(CX*20,CY*20)-STEP(18,18) ,1 TO < 

LX,LY) ,0:LINE(LX,LY)-STEP(18,18) ,14,B 

330 IFNOT V THEN380 

340 IF POINT (LX+2,LY+8)=15 AND POINT (LX- 



230 IF TY! >=4THENTY!=0:SC=SC+1 :GOSUB310: 

IFABS (TX-X*2) < 16THENSP=SP/4 :S0UND9 , 16 :SO 

UND10 ,0 :S0UND6 , 18 :S0UND13 , 1 

240 TX=TX+A*(TX>1ANDTX<57) 

250 L0CATE16,11:PRINTSP 

260 LOCATE 16,1 3 :PRINT60-TIME¥60 

270 L0CATE16,15:PRINTSC 

280 IFTIME>3599THEN340 

290 GOTO 160 

300 'TIME UP 

310 IF SCMOD20=19ANDTIME>1500THENTIME=TI 
ME-1080 :SOUND10 , 16 :SOUND6 ,0 :SOUND10 , 16 :S 
0UND13,1 
320 RETURN 

330 "T"-L *-iV 

340 L0CATE2,19:PRINT"GAME OVER!! REPLAY 

? (Y/N) " ; :BEEP 

350 IFINKEY*<>""THEN350 

360 A*=INPUT*(1) :IFA*="Y"ORA*="y"THENRUN 

ELSE I F A*= " N " ORA*= " n " THENSCREEN 1 : COLOR 1 5 , 

4,7:ENDELSE360 

370 '7' ,: 77-f»;9 & WZtfr" 

380 DATA 00, 00, 00, 14, 1C, 14, 00, 00, 00, 00,0 
,00 ,36 ,3E ,36 ,00 ,00 ,00 ,00 ,7F ,6B ,7F ,63 ,00 
,00 ,00 ,00 ,FF ,DB ,FF ,FF ,C3 
390 DATA ,13, ,,,1,18, 42, 13, ,,200, 30,0 



SHORT PROGRAM ISLAMI 



2,LY+8)=15 THEN510 

350 IF POINT (LX+8,LY+2) =15 AND POINT (LX+ 

8,LY-2)=15 THEN510 

360 IF POINT <LX+16,LY+8) =15 AND POINT (LX 

+20,LY+8)=15 THEN510 

370 IF POINT <LX+8,LY+16) =15 AND POINT (LX 

+8,LY+20)=15 THEN510 

380 IF STRIG(0) THEN CX=CX+1:IF CX=4 THE 

N CX=0:GOTO440 ELSE440 

390 IF STICK(0)=3 THEN LX=LX+18:IF LX>X1 

+18 THEN LX=X1+18 ELSE440 

IF STICK(0)=7 THEN LX=LX-18:IF LX<X1 
■18 ELSE440 



400 

-18 THEN LX=X1 
410 IF C THEN450 

IF INKEY*=CHR*(27) 



THEN PT=RP:G0T014 



420 



430 GOTO380 

440 FOR 1=0 TO 180:NEXT 

450 COPY(0,100)-(18,118) ,1 TO (X2,LY),0 

460 IF C THEN LY=LY+1B:IF LY=212 THEN480 

ELSEIF LY=18 THEN LY=14 
470 GOTO290 

480 LX=X1 :PC=PC+1 :IF PC=2 THEN GOSUB650 : 
PRINT#1 ," CANNOT PASS 3 TIMES" 
490 IF PC=3 THEN GOSUB650 :PRINT#1 , " 
GAME OVER ":IF INKEY*=CHR* (27) THEN 
PT=RP:GOTO140 ELSE490 
500 GOTO240 

510 IF Yl THEN LINE ( X 1 , Y 1 ) -STEP ( 18 , 18) , 1 
5,B 

520 LINE(LX ,LY)-STEP(18,18) ,7 ,B : Y1=LY :PT 
=PT+20- (R=l ) *500 :GOSUB600 

530 PLAY"V14L6403CE" :IF PC=2 THEN G0SUB6 
60 

540 PC=0:R=R-1 :IF R THEN240 
550 ' 

560 LINE(LX,LY)-STEP(18,18) , 15 ,B :PLAY "VI 
5L20R10O4ABAGF+ED .R10O2D8" 

570 IF R0O5 THEN RO=RO+l :FOR 1=0 TO 500 
0:NEXT:GOTO150 
580 GOSUB650:PRINT#1 ," GOOD WORK! ...END 

" :GOTO580 
590 '===SUB=== 

600 PSET (20 , 1 1 ) :COLOR , 12 :PRINT#1 ,USING"R 
OUND:# SCORE:#### NEXT :" ;RO;PT : RETURN 
610 FX=INT(RND(1)*4) 
620 FY=FY+1:IF FY=5 THEN FY=0 
630 RETURN 
640 C=l :RETURN 

650 COLOR , 4 : PRESET (54,34) : RETURN 
660 LINE (54, 34) -(210, 42) ,4,BF:RETURN 
670 COPY (FX*20,FY*20) -STEP (18,18) ,1 TO ( 
214,6) ,0:LINE(214,6)-(232,24) ,15,B:RETUR 
N 

680 ' 

690 DATA U1R1D1R1D1L1D1L1U1L1U1R1 
700 DATA U1R1D3L1U2 
710 DATA U1R1D1R1D1L3U1R1 
720 DATA U1R1D1R1D1L2U1 

730 DATA R1D2L1U2 
740 '===ROUND DATA=== 

750 DATA DUMMY 

760 DATA 1,0,7,0,3,1,7,1,0,2,1,2,4,2,5,3 

,7,3,8,3,3,4,2,5,4,5,0,6,6,6,1 ,7,2,7,3,7 

,7,7,6,8 

770 DATA 5,0,2,1,6,1,8,1,0,2,3,2,5,2,8,2 

,1,3,4,3,7,3,2,4,6,4,0,5,3,5,5,5,1,6,2,7 

,3,7,4,7 

780 DATA 2,0,4,1,1,2,2,2,5,2,7,2,0,3,3,3 

,6,3,1,4,4,4,6,4,3,5,5,5,8,5,2,6,7,6,4,7 

,6,7,4,8 

790 DATA 0,0,4,0,8,0,1,1,4,1,7,1,2,2,6,2 

,3,3,4,4,7,4,8,4,3,5,5,5,2,6,6,6,1 ,7,4,7 

,7,7,4,8 

800 DATA 0,0,8,0,1,1,4,1,7,1,2,2,6,2,3,3 

, 5, 3, 1, 4, 7, 4, 3, 5, 5, 5, 2, 6, 6, 6, 1,7, 4, 7, 7, 7 

,0,8,8,8 
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